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Introduction 



This book is a collection of 76 practical programs written in the BASIC programming language specifically for the 
Commodore PET^ or CBM^ computers. The programs perform a variety of common useful tasks in the fields of 
finance, mathematics, statistics, science, and business. 

You can use this book whether or not you know how to write programs in BASIC. 

We do not teach you how to program in BASIC; there are probably hundreds of books trying to do that. But we 
do describe programs carefully and include user examples with the program listings. So if you are not familiar with 
BASIC, simply copy the program listings into your computer, then run the programs as illustrated in the examples. 

Remarks are included in the listings to help BASIC programmers understand how each program works. They will 
also assist you in identifying parts of programs that you may be able to use in other programs you write. Remark state- 
ments precede the line(s) on which they comment. REM statements should be omitted when you enter programs, 
since they are ignored by the computer and simply use up memory. 

Options are also included with some programs. An option is an alteration which changes the input or output for- 
mat of the original program. Options may suggest ways in which you can further alter the programs. We have included 
a brief description, example, sample run and partial listing of each option. The partial listing includes those program 
statements which are changed when going from the original program to the optional program. Lines which must be 
altered, added or deleted are shaded in both listings. 

All programs can be run on a PET or CBM computer with 8K or more of memory. You will need a cassette or 
floppy disk drive to save the programs on, but the programs themselves do not use cassettes or floppy disks to store 
or retrieve data. 

The programs are designed to fit on a 40-column display screen, so they work equally well on 40 or 80-column 
PET/CBM computers. All program output appears on the display screen, except in the program "Check Writer," which 
uses a printer. You can modify any program to use a printer. Adding OPEN, CMD, PRINT*, and CLOSE statements to a 
program causes its output to go to the printer instead of the display screen. To do this, first find a place in the program 
after all INPUT statements but before the PRINT statements that produce the program output. At that point, add state- 
ments such as OPEN 4,4:CMD4. Any PRINT statements executed after these statements are executed will output to 
the printer rather than the display screen. To make output revert to the display screen, put statements such as 
PRINT #4:CL0SE 4,4 after the PRINT statements that produce the program output. Refer to the "Check Writer" 
program for an example of printer output. (Note especially lines 250 and 625.) 

You can also alter the PRINT statements in any program to use more than 40 columns of an 80-column printer or 
display screen, but it is not necessary. 

The CBM computer does not normally display graphics characters. Instead, it displays upper and lower case 
alphabetic characters. Some of the programs, like "Coordinate Plot," use the graphics characters. So if you use these 
programs on a CBM, you must enable the graphics characters by typing POKE 59468,1 2 before typing RUN. After the 
program is finished, type POKE 59468,14 to retum the CBM to normal upper/lower case mode. 

Throughout the program listings, the character r3 is the "clear screen" character. When you are typing in a 
program listing, enter it by simultaneously pressing the SHIFT and CLR HOME keys. This character appears on the dis- 
play screen as 'SA (rather than 71). 

All programs in this book have been tested, run, and listed on a Commodore PET computer system model 2001 
with Commodore BASIC version 3.0. The sample runs and listings in this book were printed on a Commodore printer 
model 2022. The sample runs represent program output as it would appear on a display screen. In some cases it would 
be necessary to modify PRINT statements to achieve the same output directly on a printer. 



'pet is a registered trademark of Commodore Business Machines, Inc. 
^CBM is a registered trademark of Commodore Business Macfiirtes, Inc. 



VII 



Program Errors 

If you encounter an error or program difficulty which you believe is not your fault, we would like to hear about it. 
Please write the authors in care of the publishers, and include the following information: 

1 ) description of the error 

2) data entered which caused the error 

3) source listing of your program, from your computer (if possible) 

4) any corrections you have 

We appreciate your help in creating a book of tested BASIC programs that anyone can use. 
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Future Value of an Investment 



This program calculates a future value of an investment when interest is a factor. You must provide the 
amount of the initial investment, the nominal interest rate, the number of compounding periods per year and the 
number of years of investment. 

Assuming there are no additional deposits and no withdrawals, the future value is based on the following 
formula: 

T = P{\+i/N)l^ 'Y 

where: T = total value after / years (future value) 

P = initial investment 

/ = nominal interest rate 

N = number of compounding period per year 

Y = number of years 

Examples: 

Carl makes an investment of $6800.00 at 9.5%. If interest is compounded quarterly, what will be the value 
of Carl's investment in 10 years? 

Mr. Smith purchases a piece of property for $16,050.00. The value of property is rising at an average of 7% 
per year. What may Mr. Smith expect his property to be worth in 5 V2 years? 

FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 6809 
NOMINAL INTEREST RATE? 9.5 
COMPOUNDING PERIODS PER VEAR? 4 
NUMBER OF VEARS? 18 
FUTURE VALUE=* 17388.64 

MORE DATA? ( 1=VES.. 0=NO>? 1 

INITIAL INVESTMENT? 16058 
NOMINAL INTEREST RATE? 7 
COMPOUNDING PERIODS PER VEAR? 1 
NUMBER OF VEARS? 5.5 
FUTURE VALUE=$ 23285.51 

MORE DATA? a=VES.. 0=NO>? 8 



10 PRINT 'TFUTURE VALUE OF AN INVESTMENT" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT": 
40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 
60 INPUT I 

70 PR I NT "COMPOUND I NO PERIODS PER VEAR"; 
88 INPUT N 



90 PRINT "NUriEER OF VEflRS"; 
100 INPUT V 

108 REM - CflLCULflTE INTEREST RfiTE PER PERIOD: 

109 REN - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CflLCULflTE FUTURE VALUE BV FORMULA 

120 T=P*<l+I>t(N*V> 

129 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRIHT "FUTURE VALUE=f".: 
135 PRINT INT<;T*100+.5>/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? a=VES..0=NO>".: 
160 INPUT >i 

170 IF X=l THEN 20 
180 END 



OPTION 

TNs program allows you to enter a term of investment in whole years or decimal parts only. In some cases 
you may wish to enter the term of investment in years and months rather than just years. The program changes 
necessary follow the example listed below. 

Example: 

Herb invests $12,000.00 at 8% interest. Interest is compounded quarterly. What is the value of his invest- 
ment at the end of 10 years and 7 months? 



FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 12000 
NOMINAL INTEREST RATE? 8 
COMPOUNDING PERIODS PER VEflR? 4 
NUMBER OF VEARS.. MONTHS? 10..? 
FUTURE VALUE=* 27749.5 

MORE DATA? a=VES..0=NO>? O 



1 REM - OPTION 90-105 

10 PRINT "□=-UTURE VALUE OF INVESTMENTS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS. MONTHS" 
100 INPUT V0.M 

104 REM - CALCULATE VEARS FROM VEflRS AND MONTHS 

105 V=<12*V0+M>/12 

108 REM - CALCULATE INTEREST RATE PER PERIOD; 



180 END 
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Future Value of Regular Deposits (Annuity) 



This program calculates a future value when deposits are made regularly. All deposits are equal. You must 
provide the amount of each deposit, the number of deposits per year, the number of years, and the nominal in- 



Assuming that interest is compounded with each deposit, the calculation is based on the following formula: 



where: T = total value after Y years (future value) 

R = amount of regular deposits 

N = number of deposits per year 

/ = number of years 

/ = nominal interest rate 



$50.00 is transferred each month from Matt's checking account to a Christmas Club savings account with 
5% interest. How much will Matt receive at the end of the year? 

Tim makes annuity payments of $175.00. The interest is 5.5%. What amount will Tim have accumulated in 



FUTURE VALUE OF REGULAR DEPOSITS 

flMOUHT OF REGULAR DEPOSITS? 56 
NOMINAL INTEREST RATE? 5 

# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS? 1 
FUTURE VALUE = $ 613.94 

MORE DATA? a=VES.. 0=NO>? 1 

AMOUNT OF REGULAR DEPOSITS? 175 
NOMINAL INTEREST RATE? 5.5 

# OF DEPOSITS PER VEAR? 1 
NUMBER OF VEARS? 15 
FUTURE VALUE = $ 3921.52 

MORE DATA? <1=VES.. 0=NO>? 8 



10 PRINT "ITUTURE VALUE OF REGULAR DEPOSITS" 
20 PRINT 

29 REM - STATEMENTS 38 TO 108 REQUEST USER INPUT 

30 PRINT "AMOUNT OF REGULAR DEPOSITS".: 
40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE".: 
60 INPUT I 

70 PRINT "# OF DEPOSITS PER VEAR".: 



terest rate. 




Examples: 



15 years? 
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80 INPUT N 

90 PRINT "NUMBER OF VEflRS"; 
100 INPUT V 

108 REM - CftLCULflTE INTEREST RATE PER DEPOSIT.. 

109 REM - CONVERT FROM PERCENT TO IiECIMflL 

110 I = I/'N/100 

119 REM - CflLCULflTE FUTURE VALUE BV FORMULA 

1 20 T=R* < < 1 + 1 > t < N* V > - 1 > / 1 

129 REM - ROUND OFF TO NEAREST CENT.. PRINT 

130 PRINT "FUTURE VALUE = f"; 
135 PRINT INT<:T*100+.5>/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? <;i=VES. 0=NO.V; 
160 INPUT X 

170 IF :=i=l THEN 20 
180 END 



OPTION 

You may wish to enter the term of investment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

How much will Ron receive in 10 years and 5 months if he transfers $50.00 each month into a trust fund 
with 5% interest? 



FUTURE VALUE OF REGULAR DEPOSITS 

AMOUNT OF REGULAR DEPOSITS? 5© 
NOMINAL INTEREST RATE? 5 
# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS.. MONTHS? 10.. 5 
FUTURE VALUE = * 8179.31 

MORE DATA? (1=VES.. 0=NO>? 8 



1 REM - OPTION 90-105 

10 PRINT ".TUTURE VALUE OF REGULAR DEPOSITS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS.. MONTHS" 
100 INPUT V0..M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTH:- 

105 V=a2*V0+M>/12 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT 



180 END 
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Regular Deposits 



This program calculates the amount required as a regular deposit to provide a stated future value In a 
specified time period. All deposits are equal. It is necessary for you to supply the future value, the nominal in- 
terest rate, the number of deposits per year and the number of years. 

The calculation for regular deposits is based on the following fonnula: 

UN \ 



R = T 



(i+///v)/v-y-i 



where: R = amount of regular deposit 

T = future value 

/ = nominal interest rate 

N = number of deposits per year 

/ = number of years 



Example: 

Mary would like $1000.00 at the end of one year in a savings account. How much must she deposit each 
month at 8% interest to achieve this? 



REGULAR DEPOSITS 

TOTAL VALUE AFTER V VEARS? lOOO 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER VEflR? 12 
NUMBER OF VEARS? 1 
REGULAR DEPOSITS = * 88.32 

MORE DATA? a=VES.. 0=NO>? O 



10 

20 

30 
40 
50 
60 
70 
80 
90 

100 

108 
109 

110 

119 
120 
129 



PRINT 
PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 



":FEGULAR DEPOSITS" 

STATEMENTS 30 TO 100 REQUEST 
"TOTAL VALUE AFTER V VEARS".: 
T 

"NOMINAL INTEREST RATE".: 
I 



USER INPUT 



"# OF DEPOSITS PER VEAR".: 
N 

"NUMBER OF VEARS".: 
INPUT V 

REM - CALCULATE INTEREST RATE PER DEPOSIT.: 
REM - CONVERT FROM PERCENT TO DECIMAL 
I=I/N/100 

REM - CALCULATE AMOUNT OF REGULAR DEPOSIT BV FORMULA 

R=T*I/< < I+l > t<:N*V.^-l > 

REM - ROUND OFF TO NEAREST CENT.. PRINT 
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130 PRINT "REGULAR DEPOSITS = 
135 PRINT INT<R#100+.5>/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? a=VES.. 0=NO>"; 
160 INPUT X 

170 IF X=l THEN 20 
180 END 



OPTION 

You may wish to enter the term of investrhent in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

Ed would like to save $2000.00 for a new motorcycle. He would like to achieve this amount in 1 year and 5 
months. How much must he deposit each month if his interest is 8%? 



REGULAR DEPOSITS 

TOTAL VALUE AFTER V VEARS? 200© 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS.. MONTHS? 1..5 
REGULAR DEPOSITS = $ 111.5 

MORE DATA? a=VES.. 0=NO>? 8 



1 REM - OPTION 90-105 

10 PRINT "."I?:Ei3ULAR DEPOSITS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS.. MONTHS" 
100 INPUT V0..M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

1 05 V= ( 1 '-■'•'f'VO+M '5 / 1 2 

108 REM - CALCuLaTE INTEREST RATE PER DEPOSIT.. 



180 END 
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Regular Withdrawals from an Investment 



This program calculates the maximum amount which may be withdrawn regularly from an investment over 
a specified time period. All withdrawals are assumed to be equal. You must provide the amount of the initial in- 
vestment, the nominal interest rate, the number of withdrawals per year and the number of years. 

The maximum amount of withdrawals is calculated by the following formula: 

/ UN i \ 

R'P + — 

where: R = amount of regular withdrawal 
P ■= initial investment 
/■ "= nominal interest rate 
N »= number of withdrawals per year 
Y ■= number of years 

Because this program calculates a maximum amount, a balance of $0.00 will be left in your account at the 
end of the time period. You may withdraw any lesser amount under the same specifications and leave a remain- 
ing balance in your account. 

Example: 

David invests $8000.00 at 9.5%. He plans to make regular withdrawals every month for ten years, leaving 
nothing at the end. How much should he withdraw each time? 



RE6ULRR WITHDRflWRLS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8080 
NOMINAL INTEREST RATE? 9.5 
NUMBER OF WITHDRAWALS ? 12 
NUMBER OF VEARS? 10 
AMOUNT OF WITHDRAWALS = 103.52 

MORE DATA? <1=VES.. 0=NO)? .0 



10 PRINT "3?EGULRR WITHDRAWALS FROM AN INVESTMENT" 
20 PRINT 

29 REM - STATEMENTS 38 TO 100 REQUEST USER INPUT 
"INITIAL INVESTMENT"; 
P 

"NOMINAL INTEREST RATE"; 
I 



30 PRINT 
40 INPUT 
50 PRINT 
60 INPUT 
70 PRINT 
PRINT 



"NUMBER OF WITHDRAWALS"; 
"PER VERR"; 



71 

80 INPUT N 

90 PRINT "NUMBER OF VEARS"; 
100 INPUT V 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 

109 REM - CONVERT FROM PERCENT TO DECIMAL 
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110 I=I/N/100 

119 REM - CflLCULflTE REGULAR WITHDRfiWflL BV FORMULA 

120 R=P*<I/<<l+I>t<N*V>-l>+I> 
125 K=INT<R*100+.5)/100 

129 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRINT "AMOUNT OF WITHDRAWALS = $";K 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? <1=VES.. 0=NO)": 
160 INPUT X 

170 IF X=l THEN 20 
180 END 



OPTION 

It may be more convenient to enter the period of investment in years and months rather than just years. The 
program changes necessary are listed following the example below. 

Exannple: 

How much could be withdrawn each week if you have an investment of $8000.00 at 9.5% interest to be 
withdrawn from for 10 years and 5 months? 



REGULAR WITHDRAWALS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8800 
NOMINAL INTEREST RATE? 9.5 
NUMBER OF WITHDRAWALS ? 52 
NUMBER OF VEARS.. MONTHS? 10.. 5 
AMOUNT OF WITHDRAWALS = $ 23.28 

MORE DATA? a=VES.. 0=NO>? 8 



1 REM - OPTION 90-105 

10 PRINT "n^EGULAR WITHDRAWALS FROM AN INVESTMENT" 



80 INPUT N 

90 PRINT "NUMBER OF YEARS.. MONTHS" 
100 INPUT V0..M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=<:i2*V0+M>/12 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL.; 



180 END 
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Initial Investment 



This program calculates the investment necessary to provide a stated future value in a specified time period. 
You must enter the future value of the investment, the number of years of investment, the number of compound- 
ing periods per year and the nominal interest rate. 

The formula used to calculate the initial investment is as follows: 

T 

p = 

\\+ilN)N'Y 

where: P = initial investment 

T = future value 

N = number of compounding periods per year 

/ = number of years 

/ = nominal interest rate 



Examples: 

How much must you invest at 8.5% to produce $10,000.00 at the end of 10 years if interest is compounded 
quarterly? 

Merchant Savings wishes to sell a bond which will be worth $5000.00 five years from the purchase date. In- 
terest will be 7.9% compounded daily. How much must the bank charge for the bond? 



INITIfiL INVESTMENT 

TOTAL VALUE AFTER V VEflRS? 19000 

# OF COMPOUNDING PERIODS PER VEflR? 4 
NUMBER OF VEflRS? 10 

NOMINAL INTEREST RATE? 8.5 
INITIAL INVESTMENT = * 4312.38 

MORE DATA? < 1=VES. 0=HO>? 1 

TOTAL VALUE AFTER V VEARS? 5000 

# OF COMPOUNDING PERIODS PER VEAR? 365 
NUMBER OF VEARS? 5 

NOMINAL INTEREST RATE? 7.9 
INITIAL INVESTMENT = $ 3368.54 

MORE DATA? <1=VES..0=NO.>? 



10 PRINT "□INITIAL INVESTMENT" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TOTAL VALUE AFTER V VEARS"; 
40 INPUT T 

50 PRINT "# OF COMPOUNDING PERIODS PER VEAR"; 
60 INPUT N 
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70 PRINT "NUMBER OF VEflRS"; 
80 INPUT V 

90 PRINT "NOMINflL INTEREST RATE": 
100 INPUT I 

108 REM - CftLCULflTE INTEREST RATE PER PERIOD 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CftLCULflTE INITIAL INVESTMENT BV FORMULA 

120 P=T/<l+I>t<N#V> 

129 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRINT "INITIAL INVESTMENT = f " : 
135 PRINT INT<P*100+.5)/100 

140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA?<1=VES.0=NO>"; 
160 INPUT X 

170 IF K=l THEN 20 
180 END 

OPTION ' " " 

The program above allows you to enter a period of investment of whole years and decimal parts only. You 
may wish to enter the period of investment in years and months rather than just years. The program changes 
necessary are Hsted following the example below. 

Example: 

Mary wishes to invest a sum in a savings bank. In 3 years and 8 months she would like to have $4000.00 in 
her account. If 8% interest is compounded monthly, what amount n>ust Mary invest? 

INITIAL INVESTMENT 

TOTAL VALUE AFTER V VEARS? 4000 

# OF COMPOUNDING PERIODS PER VEAR^ 12 

NUMBER OF VEARS.. MONTHS? 3.. 8 

NOMINAL INTEREST RATE? S 

INITIAL INVESTMENT = $ 2986 

MORE DATA? a=VES.0=NO>? 9 

1 REM - OPTION 70-85 

10 PRINT ".IINITIAL INVESTMENT" 



60 INPUT N 

70 PRINT "NUMBER OF VEARS.. MONTHS" 
80 INPUT V0..M 

84 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

85 V=(12*V0+M)/12 

90 PRINT "NOMINAL INTEREST RATE"; 



180 END 
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Minimum investment for Withdrawals 



This program calculates the minimum investment required to allow regular withdrawals over a specified 
time period. The amount calculated is dependent upon the amount of each withdrawal, the number of with- 
drawals per year, the number of years, and the nominal interest rate on the investment. All withdrawals are equal. 

Only the least amount necessary for your investment is calculated; the program assunnes a balance of $0.00 
to be left at the end of the time period. Any investment larger than the amount calculated will also enable you to 
withdraw the desired amount, but leave a remaining balance. 

Assuming that interest is compounded with each withdrawal, the calculation is based on the following for- 



where: P = initial investment 

R = amount of regular withdrawal 

/■ « nominal interest rate 

N = number of withdrawals per year 

Y number of years 



How much must you invest at 6% interest to allow monthly withdrawals of $100.00 for 5 years? 



MINIMUM INVESTMENT FOR WITHDRflWfiLS 

AMOUNT OF WITHDRAWALS? 180 

NOMINAL INTEREST RATE? 6 

# OF WITHDRAWALS PER VEAR? 12 

NUMBER OF YEARS? 5 

MINIMUM INVESTMENT = * 5172.56 

MORE DATA? (1=VES.. 0=NO>? 8 



18 PRINT "□1INIMUM INVESTMENT "; 
11 PRINT "FOR WITHDRAWALS" 
20 PRINT 

29 REM - STATEMENTS 38 TO 188 REQUEST USER INPUT 
38 PRINT "AMOUNT OF WITHDRAWALS"; 
48 INPUT R 

58 PRINT "NOMINAL INTEREST RATE"; 
68 INPUT I 

78 PRINT "# OF WITHDRAWALS PER VEAR"; 
88 INPUT N 

90 PRINT "NUMBER OF VEARS"; 

108 INPUT V 

109 REM - CONVERT FROM PERCENT TO DECIMAL 



mula: 




Example: 



110 1=1/100 

119 REM - CflLCULftTE MINIMUM INVESTMENT BV FORMULA 

1 20 P=R*N/ 1 * < 1 - 1 / < < 1 + 1 /N ) t < N* V > > > 

129 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRINT "MINIMUM INVESTMENT = $" :. 
135 PRINT INT(100#P+.5>/100 

140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? <1=VES. 0=NO>"; 
160 INPUT X 

170 IF X=l THEN 20 
180 END 



OPTION 

It may be more convenient to enter the term of investment in years and months rather than years. The pro- 
gram changes necessary are listed following the example below. 

Example: 

Tony withdrew $250.00 monthly for 6 years and 5 months. How much was his initial investment at 6% in- 
terest? 



MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? 250 
NOMINAL INTEREST RATE? 6 
# OF WITHDRAWALS PER VEAR? 12 
NUMBER OF VEARS.. MONTHS? 6.-5 
MINIMUM INVESTMENT = $ 15944.81 

MORE DATA? a=VES.. 0=NO>? 



I REM - OPTION 90-105 

10 PRINT "in IN I MUM INVESTMENT 

II PRINT "FOR WITHDRAWALS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS.. MONTHS" 
100 INPUT V0..M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=(12*V0+M>/12 

109 REM - CONVERT FROM P^:CENT TO DEHIMAL 



180 END 
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Nominal Interest Rate on Investments 



This program calculates the nominal interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. The nominal interest rate is usually subdivided for compounding pur- 
poses. 

"Nominal Interest Rate" is based on the following formula: 



/• = N{TIP) N'Y . N 

where: / = nominal interest rate 
P = initial investment 
T = future value 

N - number of compounding periods per year 
/ = number of years 

The nominal interest rate is expressed as a yearly rate even though the interest rate used when compound- 
ing interest xsjj. The nominal interest rate will be less than the effective interest rate when interest is compounded 
more than once a year. This is because the nominal rate stated does not take into account interest compounded 
on interest earned in earlier periods of each year. For example, the schedule of earned interest on $100.00 at 5% 
compounded quarterly would be: 

/7100 

PERIOD BALANCE INTEREST NEW BALANCE 

N 

1 $100.00 • .0125 = $1.25 $101.25 

2 $101.25 • .0125 = $1.27 $102.52 

3 $102.52 . .0125 = $1.28 $103.80 

4 $103.80 • .0125 = $1.30 $105.10 

The effective interest rate in the example is 5.1 %, although the nominal rate is 5%. 



Examples: 

Jane invests $945.00 in a savings bank. Four and a half years later her investment amounts to $1309.79. If 
interest is compounded monthly, what is the nominal interest rate offered by the bank? 

Dick invests $3,000.00. Ten years later he has earned $1,576.00 in interest. If interest is compounded each 
month, what is the nominal interest rate on the account? 



NOMINAL INTEREST RATE ON INVESTMENTS 

PRINCIPAL? 945 

TOTAL VALUE? 1309.79 

NUMBER OF VEARS? 4.5 

# OF COMPOUNDING PERIODS PER VEAR? 12 

NOMINAL INTEREST RATE = 7.27613609 % 

MORE DATA? <1=VES. 0=NO.>? 1 
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PRINCIPAL? 3000 
TOTAL VALUE? 4576 
NUMBER OF VEARS? 10 

# OF COMPOUNDING PERIODS PER VEAR? 12 
NOMINAL INTEREST RATE = 4.2295659 

MORE DATA? (1=VES.. 0=NO>? Q 



".HOMINAL INTEREST RATE "; 
"ON INVESTMENTS" 



10 PRINT 

11 PRINT 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

"PRINCIPAL"; 

P 

"TOTAL VALUE"; 
T 

70 PRINT "NUMBER OF VEARS"; 
80 INPUT V 

"# OF COMPOUNDING PERIODS "; 
"PER VEAR"; 
100 INPUT N 

109 REM - CALCULATE NOMINAL INTEREST RATE BV FORMULA. PRINT 

110 I2-N#<<T/P>t<l/<N#V)>-l>#100 

120 PRINT "NOMINAL INTEREST RATE ="; 

121 PRINT 12; "?i" 
130 PRINT 

139 REM - 

140 PRINT 



30 PRINT 
40 INPUT 
50 PRINT 
60 INPUT 



90 PRINT 
95 PRINT 



150 INPUT X 
160 IF X=:l THEN 20 
170 END 



RESTART OR END PROGRAM? USER INPUT REQUIRED 
"MORE DATA? <:i=VES. 0=NO>"; 
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Effective Interest Rate on Investments 



This program calculates the effective interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. This rate expresses the actual rate of interest earned annually on the in- 
vestment. 

The effective interest rate is calculated by the following formula: 



You may calculate the effective interest rate on amounts you have already invested and accrued interest. Or 
you may calculate the effective interest rate necessary to enable a principal to reach a hypothetical value in a 
specified amount of time. For instance, if you invest $5000.00 in a bank and desire $6800.00 after six years, you 
will predict the effective interest rate the bank must pay in order to achieve this. 

"Effective Interest Rate" may also be used to calculate the effective percent of depreciation of an invest- 
ment. Take your car, for example. If you bought it for !j)7534.00 and sold it for $3555.00 three years later, you will 
find that its actual depreciation (a negative interest rate) was approximately 22% each year. 



Jane deposits $945.00 in a savings bank. Four and a half years later her account has $1309.79. What actual 
percent of her initial investment did the bank pay annually? 

Dick bought his car in 1970 for $7534.84 and sold it in 1973 for $3555.00. What was its effective rate of 
deprecie^tion? 



EFFECTIVE INTEREST RATE ON INVESTMENTS 

INITIAL INVESTMENT? 945 

TOTAL VALUE AFTER V VEARS? 1309.79 

NUMBER OF VEARS? 4.5 

ANNUAL INTEREST RATE = 7.52375279 K 

MORE DATA? <1=VES.0=NO.>? 1 

INITIAL INVESTMENT? 7534.84 
TOTAL VALUE AFTER V VEARS? 3555 
NUMBER OF VEARS? 3 

ANNUAL INTEREST RATE = -22.1566143 'i 
MORE DATA? <1=VES.0=NO>? 8 



10 PRINT "rXFFECTIVE INTEREST RATE 

11 PRINT "ON INVESTMENTS" 
20 PRINT 

29 REM - STATEMENTS 30 TO 80 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 
40 INPUT P 



effective 
Interest rate 




Examples: 
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50 PRINT "TOTAL VALUE AFTER V VEARS"; 
60 INPUT T 

70 PRINT "NUMBER OF VEARS"; 
80 INPUT V 

89 REM - CALCULATE EFFECTIVE INTEREST RATE. PRINT 

90 PRINT "ANNUAL INTEREST RATE ="; 

99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

100 PRINT <<T/P)t<l/'V)~1>#100;"?J" 

109 PRINT 

110 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
120 PRINT "MORE DATA? <1=VES.0-NO>"; 

130 INPUT X 

140 IF X=l THEN 20 

150 END 
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Earned Interest Table 



This program calculates and prints an earned interest table for investments. The schedule contains the 
following outputs: 

1) Periodic balance 

2) Interest accumulated between two periods 

3) Total interest accumulated 

4) Effective interest rate 

These outputs may be calculated for a single investment or for an initial investment with regular deposits or 
withdrawals. If the table is to be tabulated for a single investment, you must provide the amount of the initial in- 
vestment, the nominal interest rate, and the number of compounding periods per year. Your new balance will be 
printed a maximum of four times per year. If interest is compounded less than four times per year, your new bal- 
ance will be posted with each interest computation. 

If the table is tabulated for regular deposits or withdrawals, you must provide the amount of the initial in- 
vestment, the nominal interest rate, the number of deposits or withdrawals per year and their amount. In this 
case it is assumed interest is compounded daily (360-day year). Your new balance will be printed at each deposit 
or withdrawal. 

Examples: 

Sally invests $2000.00 at 9.5% in a trust fund for ten years. Interest is compounded monthly. What is her 
yearly balance and earned interest for the last two years? 

John deposits $1000.00 at 8% in a passbook savings account. From each monthly paycheck $50.00 is 
deposited in this account. What is the earned interest table for the first year of this account? 

Ted deposits $1000.00 at 8% in his savings. Each quarter he withdraws $150.00. What is the earned in- 
terest table for year one of this account? 



EARNED INTEREST TflBL^ 

PRINCIPAL? 2000 

NOMINAL INTEREST RATE? 9.5 

# OF DEPOSITS/WITHDRAWALS PER VEAR? O , . , 

# OF COMPOUNDING PERIODS PER VEAR? 12 ~ re. ^ '^^ ^ r* 
START WITH WHAT VEAR? 9 

END PRINTING WITH WHAT VEAR? lO 
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EflRNED INTEREST TABLE 



PR INC 


IPflL $ 2000 
FOR 


AT 9.5 •;■ 
IPi vEflP.'=: 


NOMINAL 


EFFECTIVE IHTERES 


T RATE 9.92 


K PER VEAR 


VEflR 


BflLflNCE 


INTEREST 


ACCUn. INT. 


Q 


4365,8? 
44?0.38 
45??. 39 
4686.97 


2365.86 
104.51 

10?. 01 

109.58 


2365.8? 
24?0.38 
25??, 39 
2686.9? 


10 


4799. 17 
4914.06 
5031.? 
5152. 15 


112.2 
114.89 
11?. 64 
128.45 


2?99. 1? 
2914.06 
3031.? 
3152. 15 



11 

CHANGE DATA AND RECOMPUTE? 
a=VES..0=NO>? 1 



EARNED INTEREST TABLE 

PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

# OF DEPOSITS/WITHDRAWALS PER VEAR? 12 

AMOUNT OF DEPOSIT/WITHDRAWAL? 58 

START NITH WHAT VEAR? 1 

END PRINTING WITH WHAT VEAR? 1 



EARNED INTEREST TABLE 

PRINCIPAL ■$ 1888 AT 8 K NOMINAL 
FOR 1 VEARS 

REGULAR DEPOSITS/WITHDRAWALS * 58 
12 TIMES PER VEAR 

EFFECTIVE INTEREST RATE 8.33 'i PER VEAR 

VEAR BALANCE INTEREST ACCUM. INT. 



1856.? 


6.7 


6.7 


1113. ?8 


?.08 


13. ?8 


11?1.24 


?.46 


21.24 


1229.88 


?.84 


29.88 


128?. 32 


8.23 


3?. 32 


1345.94 


8.62 


45.94 


1404.95 


9.01 


54.95 


1464.36 


9.41 


64.36 


1524. 1? 


9.31 


?4. 1? 


1584. 1? 


10.21 


84.38 


1644.98 


18.61 


94.98 


1706 


11.81 


186 
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ENTER ■■C'' TO CONTINUE? C 



CHANGE IiflTR AND RECOMPUTE? 
(1=VES.0=NO>? 1 



EflRNED INTEREST TABLE 



PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

# OF DEPOSITS/ WITHDRAWALS PER VEAR? 4 

AMOUNT OF DEPOSIT/WITHDRAWAL? -150 

START WITH WHAT VEAR? 1 

END PRINTING WITH WHAT VEAR? 1 



EARNED INTEREST TABLE 

PRINCIPAL * 1000 AT 8 NOMINAL 
FOR 1 VEARS 

REGULAR DEPOSITS/WITHDRAWALS f-150 
4 TIMES PER VEAR 

EFFECTIVE INTEREST RATE 8.33 "i PER VEAR 

VEAR BALANCE INTEREST ACCUM. INT. 



870. 17 

( •-■ I m f 1 

602.58 
464.72 



20. 17 
17.54 
14.87 
12. 14 



20. 17 
37.71 
52.58 
64.72 



CHANGE DATA AND RECOMPUTE? 
a=VES..0=NO>? 



10 PRINT ":EARNED INTEREST TABLE" 
20 PRINT 

24 REM - ROUND OFF FUNCTION 

25 DEFFNR < > = I NT < H'* 1 00+ . 5 ) / 1 00 

29 REM - STATEMENTS 30 TO 230 REQUEST USER INPUT 

30 PRINT "PRINCIPAL"; 
40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 
60 INPUT I 

69 REM - CONVERT PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "# OF DEPOSITS/WITHDRAWALS PER VEAR"; 
90 INPUT Nl 

99 REM - DON-T ASK FOR AMOUNT IF FREQUENCV IS ZERO 

100 IF N1=0 THEN 160 

108 REM - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER 

109 REM - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER 

110 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL"; 
120 INPUT R 



129 REM - INTEREST IS COMPOUNDEIi DfllLV 

130 N=360 

139 REM - PRINT AT EACH DEPOSIT/WITHnRflWfiL 

140 L2=N1 
150 GOTO 200 

160 PRINT "# OF COMPOUNDING PERIODS PER VEflR" ; 
170 INPUT N 
180 N1=0 

189 REM - PRINT FOUR TIMES EACH VEflR 

190 L2=4 

200 PRINT "START WITH WHAT VEAR"; 
210 INPUT K 

220 PRINT "END PRINTING WITH WHAT VEAR" ; 
230 INPUT V 

239 REM - START PRINTING AT THE BEGINNING fiF A VEAR 

240 X=INT<K> 

249 REM - INITIATE RUNNING TOTALS 

250 B0=P 
260 11=0 
270 12=0 
280 12=0 
290 K=66 
300 PI =4 

310 FOR J0=1 TO INT<V>+1 

313 REM - START PRINTING? 

314 REM - IF FIRST VEAR.. SKIP CHECK FOR FULL SCREEN 

315 IF J0=K THEN 37© 
320 IF M<K THEN 480 
330 IF K-C22 THEN 470 

338 REM - FULL SCREEN (.22 LINES)? 

339 REM - IF VES.. CLEAR SCREEN.. .PRINT HEADINGS 

342 REM - WAIT FOR OPERATOR CUE TO GO TO NEKT SCREEN 

344 PR I NT "ENTER ••T:-- TO CONTINUE": 

345 INPUT m 
370 K=6+L2 

380 PRINT "n EARNED I.NTEREST TABLE": PRINT 

390 PR I NT " PR I NC I PAL $ " .: P .: " AT " .; I * 1 8© .; " K NOM I N AL " 
395 PR I NT " FOR " .: V .; " VEARS " ^ PR I NT 

399 REM - SKIP DEPOSIT/'WITHDRAWAL HEADING IF THERE ARE NONE 

400 IF N1=0 THEN 430 

410 PRINT "REGULAR DEPOSITS.--'WIT.HDRAWALS *";P 

415 PRINT" ".;N1.; "TIMES PER VEAR" : .f^'RINT 

419 REM - K COUNTS THE NUMBER OF PRINTED LINES PER PAGE 

430 PRINT "EFFECTIVE INTEREST RATE" : 

435 PR I NT FNR ( 1 00.* C U + 1 .-'N ;:• W- 1 ; 

436 PRINT "K PER VEAR" 
440 PRINT 

450 PRINT "VEAR BALANCE INTEREST ACCOM. INT. " 

459 REM - CALCULATE INTEREST 

460 PRINT 

469 REM - PRINT VEAR NUMBER 

470 PRINT J0.; 
480 Ll=l 

490 N2=l 
500 P2=l 

510 FOR Jl=l TO N 

519 REM - DEPOSIT.--'WITHDRAW ANV MORE THIS VEAR? 
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52e IF H2>H1 THEN 560 

529 REM - TIME TO MAKE IiEPOSIT/WITHnRFiWaL? 

530 IF N2/H1>J1/N THEN 560 

539 REM - CflLCULfiTE NEW EflLflNCE 

549 REM - COUNT nEPOSITS/WITHDRFlWflLS MfiDE PER VEflR 

550 N2=N2+1 

560 B2=B0*<1+I/N> 

569 REM - Il=flMOUNT INTEREST WITH EACH COMPOUNDING PERIOD 

570 I1=B2-B0 

579 REM - I3=flM0UNT INTEREST flCCUMULflTED BETWEEN POSTINGS 

580 13=13+11 

589 REM - I2=T0TflL INTEREST flCCUMULRTED TO DflTE 

590 12=12+11 

599 REM - ROUND PT INTEREST POSTING TIME 

600 IF P2/P1>J1/N THEN 640 
610 I2=FNRa2> 

620 B2=FNR<B2> 
630 P2=P2+1 

639 REM - VEflR TO START PRINTING? 

640 IF J0<K THEN 710 

649 REM - TIME TO PRINT A LINE? 

650 IF J1/'N<L1/L2 THEN 710 
660 L1=L1+1 

670 PRINT TAB<6>;FNR<B2>..FNR<I3>.FNR<I2> 

679 REM - INTEREST POSTED.. REINITIALIZE INTEREST ACCUMULATED BETWEEN 
POSTINGS 

680 13=0 
710 B0=E2 

719 REM - NO MORE LINES TO PRINT IN LAST VEAR? 

720 IF J0+.T1/'N-1>V THEN 780 
730 NEXT Jl 

739 REM - START PRINTING? 

740 IF JQ<K THEN 770 
750 PRINT 

760 K=K+1+L2 
770 NEXT J0 
780 PRINT 

789 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

790 PRINT "CHANGE DATA AND RECOMPUTE?" 
795 PRINT "<1=VES..0=NO>"; 

800 INPUT Z 
810 PRINT 

820 IF Z=i THEN lO 
840 END 
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Depreciation Rate 



This program calculates the annual depreciation rate of an investment. You must provide the original price 
of the item, its resale price, and its age in years. 

The depreciation rate is calculated by the following formula: 



Joan bought her car for $4933.76 and sold it for $2400.00 three years later. What was its actual deprecia- 



DEPRECIFiTION RftTE 

ORIGINAL PRICE? 4933.76 
RESALE PRICE? 2406 
VEflRS? 3 

DEPRECIfiTION RATE = 21.354 'A 
MORE DfiTA? (:1='t'ES..0=NO::'? O 



10 PRINT "nDEPRECIRTION RATE" 
20 PRINT 

30 PRINT "ORIGINAL PRICE"; 
40 INPUT P 

50 PRINT "RESALE PRICE".: 

60 INPUT T 

70 PRINT "VERRS"; 

80 INPUT V 

89 REM - CALCULATE DEPRECIATION RATE BV FORMULA. CONVERT TO PERCENT 

90 D=100*<:i-<:T/P>t<lA*>.> 

100 PRINT "DEPRECIATION RATE =".: 
105 PRINT INTa000*D+.5>/1000; "?i" 
110 PRINT 

119 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

120 PRINT "MORE DATA? (1=VES.0=NO.V'.; 
130 INPUT X 

140 IF X=l THEN 20 
150 END 



depreciation 
rate 




Example: 



tion rate? 
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Depreciation Amount 



This program calculates the dollar amount depreciated within a given year for a depreciating investment. 
You must provide the original price of the investment, its depreciation rate, and the year of depreciation. 

The depreciation amount is calculated by the foHowing formula: 

= /j . / .(1 - /)/- 1 

where: D = depreciation amount 
P — original price 
/ = depreciation rate 
y = year of depreciation 

Examples: 

Joan bought her car for $4933.76. Her model car depreciates at an average annual rate of 21%. What 
amount has the car depreciated in each of the first three years she has owned it? 

Joan is also concerned about the depreciation of the tape deck in her car. It cost her $1 55.00 two years ago, 
and has a depreciation rate of 22%. How much will its value decline in year three? 



DEPRECIflTION flMOUNT 

ORIGINAL PRICE? 4933.76 
DEPRECIflTION RATE? 21 
--CENTER VEI=iR=0 TO END> — 
VEflR'"' 1 

IiEPRECIftTION = $ 1036.09 
VEflR"^' 2 

DEPRECIflTION = $ 818.51 
VEflR? 3 

DEPRECIATION = $ 646.62 
VEAR? 

MORE DATA? a=VES..0=NO>? 1 

ORIGINAL PRICE? 155 

DEPRECIflTION RATE? 22 

— CENTER VEAR=0 TO END> — 

VEAR? 3 . „. ; vj\ 4t-r-f^xc< 

DEPRECIATION = $ 20.75 ^ ^ " U 

VEAR"^' 

MORE DATA? < 1=VES.. 0=NO)? 
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10 PRINT "nDEPRECIflTION AMOUNT" 
20 PRINT 

30 PRINT "ORIGINAL PRICE"; 
40 INPUT P 

50 PRINT "DEPRECIATION RATE"; 
60 INPUT I 

69 REM - CONVERT FROM PERCENT TO DECIMAL 

70 1*1/100 

80 PRINT "~<ENTER VEAR-0 TO END>-~" 
90 PRINT "VEAR"; 
100 INPUT V 

109 REM - THROUGH CALCULATING FOR THIS ITEM? 

110 IF V=0 THEN 160 

119 REM - CALCULATE DEPRECIATION AMOUNT BV FORMULA 

120 D=P#I*<l-I)t<V-l> 

129 REM - ROUND OFF TO NEAREST CENT. PRINT 

130 PRINT "DEPRECIATION « #"; 
135 PRINT INT<D#100+.5)/100 
140 PRINT 

149 REM - RETURN FOR NEXT VEAR NUMBER 

150 GOTO 90 

159 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

160 PRINT "MORE DATA? <1=VES.0=NO>"; 
170 INPUT X 

180 IF X=l THEN 20 
190 END 
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Salvage Value 



This program calculates the salvage value of an item at the end of a given year. It is necessary for you to 
provide the age of the item, its original price, and its depreciation rate. 

The salvage value is obtained by the following formula: 

S=P(^-i)Y 

where: S = salvage value 
P = original price 
/ = depreciation rate 
/ = age in years 

Example: 

What is the salvage value of Joan's car if it is three years old, she bought it for $4933.76, and it depreciates 
21 % annually? What would its salvage value be next year? 

Joan's tape deck is 2 years old. What is its salvage value if it cost $155.00 originally and depreciates at a rate of 

22%? 



SflLVflGE VALUE 

ORIGIHFIL PRICE? 4933.76 
DEPRECIfiTION RATE? 21 
— t:E.NTER VEflR=0 TO ENIi> — 
VEflRS? 3 

VALUE = * 2432.54 
VEARS? 4 

VALUE = ■$ 1921.7 

MORE ' DATA? < 1 =VES .. 0=HO > ? 1 

ORIGINAL PRICE? 155 
DEPRECIATION RATE? 22 
--(ENTER VEAR=0 TO EHIO — 
VEARS? 3 
VALUE = * 94.3 

Vf"AP'~''~' 

MORE ' DATA? C 1 = VES .. 0=NO > ? O 



10 PRINT ":::»ALVflGE VALUE" 
20 PRINT 

30 PRINT "ORIGINAL PRICE"; 
40 INPUT P 

50 PRINT "DEPRECIATION RATE".; 
60 INPUT I 
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70 PRINT "—CENTER VEflR=0 TO END>— " 
80 PRINT "VEfiRS"; 
90 INPUT V 

99 REM - CfiLCULflTE ANOTHER SflLVflGE VALUE? 

100 IF V=0 THEN 140 

108 REM - CfiLCULflTE SflLVflGE VALUE BV FORMULA.. ROUND OFF.. PRINT 

109 REM - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULA 
TIONS 

110 PRINT "VALUE = 

115 PRINT INT<100*P#<l-I/100>tT'+.5>/100 
120 PRINT 

129 REM - RETURN FOR NEXT VEAR NUMBER 

130 GOTO 80 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=VES.0=NO>"; 
150 INPUT X 

160 IF K=l THEN 20 
170 END 
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Discount Commercial Paper 



This program calculates the amount of discount and net cost of a discounted commercial paper. You must 
provide the future value of the paper, the discount rate and the number of days to maturity. 

The formulas used to calculate the discount and cost are as follows: 

D N 

discount = T • • 

100 360 

cost = r - discount 

where: T = total future value 
D = discount rate 
N = number of days to maturity 



Example: 

Canning Corporation purchases a $625,000.00 cornrpercial paper due in 60 days at 5.4%. What is the dis- 
count and cost? ^^^^^^^K^fej^^c: 

DISCOUNT COMMERCIflL PAPER Wj, 

FUTURE VALUE? 625008 >,., V '^"" 

niSCOUNT RATE? 5.4 - ^ '''^ 

BflVS TO MflTURITV? 68 
DISCOUNT = $ 5625 
COST = ■$ 619375 

MORE DATA? < 1=VES.. 0=NO>? 8 



10 PRINT "□DISCOUNT COMMERCIAL PAPER" 
20 PRINT 

29 REM - STATEMENTS 30 TO 90 REQUEST USER INPUT 

30 PRINT "FUTURE VALUE".: 
40 INPUT T 

50 PRINT "DISCOUNT RATE".: 
60 INPUT D 

69 REM - CONVERT PERCENT TO DECIMAL 

70 D=D/100 

80 PRINT "DAVS TO MATURITV".: 
90 INPUT N 

99 REM - CALACULATE DISCOUNT.. PRINT 

100 Dl=T*D*N/360 

110 PRINT "DISCOUNT = $".:D1 

119 REM - CALCULATE COST.. PRINT 

120 PRINT " COST = ■$":.J-in 
130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
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140 PRINT "MORE DflTfl? <1=VES.0=NO>"; 

150 INPUT X 

160 IF X=l THEN 20 

170 END 
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Principal on a Loan 



This program calculates an initial amount borrowed. This amount is dependent upon the interest rate, the 
amount of regular payments, the number of payments per year and the term of the loan. 

The calculation is based on the formula: 



where: P = principal 

R = regular payment 

/ = annual interest rate 

N = number of payments per year 

/ = number of years 



Susan has agreed to pay $250.00 bimonthly for 3 years to repay a loan with 20% interest. What is the 
amount of the loan? 

Tom can afford to make payments of $180.00 per month to repay a loan. If he is willing to make payments 
for four and a half years and the loan company charges 16% interest, what is the maximum amount Tom can 
borrow? 



PRIHCIPflL ON fl LOAN 

REOULflR PflVMENT? 25© 

TERM IN VEflRS? 3 

ANNUflL INTEREST RATE? 20 

# OF PflVMENTS PER VEflR? 6 
PRIHCIPflL = f 3343.45 

MORE DflTft? <1=VES..0=NO>? 1 

REGULAR PflVMENT? 188 
TERM IN VEflRS? 4.5 
ANNUflL INTEREST RATE? 16 

# OF PAVMENTS PER VEAR? 12 
PRINCIPAL = * 6897.51 

MORE DATA? < 1=VES. 0=NO>? 8 



10 PRINT ".PRINCIPAL ON A LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 180 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT"; 
40 INPUT R 




Example: 
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50 PRINT "TERM IN VEflRS"; 
60 INPUT V 

70 PRINT "flNNURL INTEREST RfiTE"; 
80 INPUT I 

90 PRINT "# OF PfiVMENTS PER VEflR"; 
100 INPUT N 

10S REM - CflLCULflTE AMOUNT OF PRINCIPAL BV FORMULA; 

lO-^ REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 
1 1 P=R*N* < 1 - 1 / < ( I / 1 00 y /N+ 1 > t ( N* V > > / < I / 1 00 > 

119 REM - ROUND OFF TO NEAREST CENT. PRINT 

120 PRINT "PRINCIPAL = f"; 
125 PRINT I NT -CP* 1 00+. 5>/ 100 
130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? < 1=VES.. 0=NO> " ; 
150 INPUT K 

160 IF X=l THEN 20 
170 END 



OPTION 

In some cases it may be more convenient to enter the term of the loan in years and months rather than just 
years. The program changes necessary are listed following the example below. 

Example: 

What would be the amount of the mortgage if you were paying $75.00 a month for 1 1 months with 3% in- 
terest? 



PRINCIPAL ON A LOAN 

REGULAR PAVMENT? 75 
TERM IN VEARS;. MONTHS? O.. 11 
ANNUAL INTEREST RATE? 3 
# iDF PAYMENTS PER VEAR? 12 
PRINCIPAL = ■$ 312.76 

MORE DATA? < 1=VES. 0=NO>? O 



1 REM - OPTION 50-65 

10 PRINT ".T'RINCIPAL ON A LOAN" 



40 INPUT R 

50 PRINT "TERM IN VEARS.. MONTHS" 
60 INPUT V0..M 

64 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

65 V=<12*V0+M>/'12 

70 PRINT "ANNUAL INTEREST RATE".: 



170 END 
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Regular Payment on a Loan 



This program calculates the amount required as regular payments in order to repay a loan over a specified 
time period. The specifications you must provide are the amount of the principal, the interest rate charged, the 
number of payments to be made per year and the number of years to pay. This program assumes all installment 
payments will be equal. 

The calculation is based on the formula: 

/ . PIN 

fj = 

where: R = regular payment 

/ = annual interest rate 

P = principal 

N = number of payments per year 

/ = number of years 

Examples: 

What must you pay on a loan of $4000.00 at 8% if payments are to be made quarterly for five years? 

If Michael borrows $6500.00 at 12.5% from Best Rate Savings & Loan to be paid back over a period of 5.5 
years, what would his monthly payments be? 



REGULAR PflVMENT OH fi LOfiH 

TERM IN VERRS? 5 

PRINCIPFIL? 4000 

flNNURL INTERE.ST RfiTE? 8 

# OF PflVriENTS PER VEflR? 4 
REGULRR PflVMENT = $ 244.63 

MORE IiRTR? a=VES..0=NO>? 1 

TERM IN VERRS? 5.5 

PRINCIPAL? 6500 

flNNURL INTEREST RATE? 12.5 

# OF PAVMENTS PER VEflR? 12 
REGULflR PAVMENT = $ 136.68 

MORE DATA? f:i=VES.. 0=NO>? O 



10 PRINT "."3?:EGULflR PflVMENT ON fl LOflN" 
20 PRINT 

29 REM - STflTEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TERM IN VEflRS".: 
40 INPUT V 

50 PRINT "PRINCIPflL".; 
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60 INPUT P 

70 PRINT "ANNUflL INTEREST RATE"; 
80 INPUT I 

90 PRINT "# OF PflVMENTS PER VEfiR"; 
100 INPUT N 

108 REM ~ CflLCULFITE RMOUNT OF REGULAR PflVMENT BV FORMULfl; 

109 REM - INTEREST CONVERTED FROM PERCENT TO IiECIMflL FOR CflLCULflTIONS 

110 R= < ( I / 1 00 > *P/N > / < 1 - 1 / < < I / 1 00 > /N+ 1 > tC N* V > > 

119 REM - ROUND OFF TO NEAREST CENT. PRINT 

120 PRINT "REGULAR PAVMENT = 
125 PRINT INT<R*100+.5>/100 
130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=VES.0=NO>"; 
150 INPUT X' 

160 IF X=l THEN 20 
170 END 



OPTION 

You may find it more convenient to enter the term of payment in years and months rather than years. The 
program changes necessary are listed following the example below. 

Example: 

Mr. Terry needs $10,000.00 to put down on a new home. Best Rates offers this amount at 14.0% interest 
to be repaid over a period of 1 1 years and 5 months. What would be the amount of regular monthly payments? 



REGULAR PAVMENT ON A LOAN 

TERM IN VEARS.. MONTHS? 11. .5 
PRINCIPAL? 10000 
ANNUAL INTEREST RATE? 14 
# OF PAVMENTS PER VEflR? 12 
REGULAR PAVMENT = $ 146.59 

MORE DATA? a=VES.. 0=NO::>? 6 



1 REM - OPTION 30-45 

10 PRINT "."FlEGULAR PAVMENT ON A LORN" 



29 REM - STATEMENTS 3© TO lOO REQUEST USER INPUT 

30 PRINT "TERM IN VEARS. MONTHS" 
40 INPUT V0..M 

44 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

45 V=a2*V0+M>/12 

50 PRINT "PRINCIPAL".: 



170 END 



32 



Last Payment on a Loan 



This program calculates the amount of the final payment on a loan. This final payment will complete amor- 
tization of a loan at the conclusion of its term. You must provide the amount of the loan, the amount of the regu- 
lar payment, the interest rate charged, the number of payments per year and the term of payment. 

The amount of the last payment is normally different from the amount of the regular payment. The final 
payment will be a "balloon" payment if the final payment is larger than the regular payment. A balloon payment 
is necessary if applying the amount of the regular payment as the last payment leaves a remaining balance due. In 
order to entirely pay off the loan at the end of its term, this remaining balance is added to the amount of the 
regular payment to determine the amount of the last payment. 

On the other hand, the amount of the final payment is sometimes less than the regular payment. If the regu- 
lar payment as the last payment would result in a negative loan balance, then the last payment should be smaller. 
In this case the regular payment is adjusted by the amount of this hypothetical negative balance to determine the 
amount of the last payment. 

amount of _ regular ^ hypothetical balance due on a 
last payment ~ payment loan after N • / regular payments 



where: N = number of payments per year 
Y = number of years 

Examples: 

Lynn borrowed $6000.00 at 5% from her father for college expenses. If she pays $1000.00 annually for 
seven years, what will her last payment be? 

Lynn borrows $11 50.00 at 8% interest to be repaid at a rate of $75.00 per month. A year and two months 
later Lynn decides to go to Europe. How much must she pay next month to completely pay off her loan? 



LAST PflVHENT ON fl LOAN 

.REGULAR PAVMENT? ISe© 
PRINCIPAL? 6000 
TERM IN VEARS? 7 
ANNUAL INTEREST RATE? 5 

# OF PAVMENTS PER VEAR? 1 
LAST PAVMENT = $ 1306.59 

MORE DATA? (l=VES..0=NO;r? 1 

REGULAR PAVMENT? 75 
PRINCIPAL? 1150 
TERM IN VEARS? 1.17 
ANNUAL INTEREST RATE? 8 

# OF PAVMENTS PER VEAR? 12 
LAST PAVMENT = * 240.38 

MORE DATA? < 1=VES.. 0=NO>? 
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10 PRINT ".XflST PRVMENT ON fl LORN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 

30 PRINT "REGULfiR PfiVMENT"; 
40 INPUT R 

50 PRINT "PRINCIPAL"; 
60 INPUT P 

70 PRINT "TERM IN VEARS".: 
80 INPUT V 

90 PRINT "ANNUAL INTEREST RATE"; 
100 INPUT I 

109 REM - CONVERT INTEREST FROM PERCENT TO HECIMAL 

110 1=1/100 

120 PRINT "# OF PAYMENTS PER VERR"; 
130 INPUT N 
140 B0=P 

149 REM - COMPUTE ALL PAYMENTS.. BALANCES THROUGH LAST PAYMENT USING R 

150 FOR Jl=l TO N*Y 

159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT 

1 60 1 1 = I NT < < B0* I /N > * 1 00+ . 5 > / 1 00 

169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 

170 R=R-I1 

179 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT 

180 B0=E0-A 
190 HEKJ Jl 

199 REM - CALCULATE LAST PAYMENT. ROUND OFF.. PRINT 

200 PR I NT "LAST PAYMENT = $"} 
205 PR I NT I NT < < R+B0 > * 1 00+ . 5 .> / 1 00 
210 PRINT 

219 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

220 PRINT "MORE DATA? C1=YES. 0=NO.> " ; 
230 INPUT X 

240 IF X'=l THEN 26 
250 END 



OPTION 

The program above allows the term of payment on the loan to be entered in years only. You may wish to 
enter the term in years and months instead. The program changes necessary are listed following the example. 

Example: 

If you pay $40.00 a month for 2 years and 3 months on a loan of $1200.00 at 7.5%, what amount will the 
last payment total? 



LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? 40 
PRINCIPAL? 1200 
TERM IN YEARS.. MONTHS? 2.-3 
ANNUAL INTEREST RATE? 7.5 
# OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = $ 2S7.36 

MORE DATA? a=YES.. 0=NO>? @ 
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1 REM - OPTION 70-85 

10 PRINT ".XflST PflVMENT ON fl LOAN" 



60 INPUT P 

70 PRINT "TERM IN VEflRS.. MONTHS" 
80 INPUT V0..M 

84 REM - CflLCULflTE VEflRS FROM VEflRS AND MONTHS 

85 V=C12*V0+M>/12 

90 PRINT "flNNUflL INTEREST RATE"; 



250 END 
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Remaining Balance on a Loan 



This program calculates the balance remaining on a loan after a specified number of payments. It is necess- 
ary for you to provide the amount of the regular payment, the number of payments per year, the amount of the 
principal, the annual interest rate, and the payment number after which to calculate the remaining balance. 

The remaining balance is calculated by the following method: 

remaining _ principal - ^^lount amortized after 
balance N - {Y- 1)+ N1 payments 

where: N = number of payments per year 

/ = year to calculate remaining balance 
N1 = payment number in year Y to calculate remaining balance 

Example: 

Kelly has taken out a loan of $8000.00 at 17.2% interest. His regular payments are $200.00 per month. If he 
has paid through the tenth payment in the fourth year, how much more does Kelly owe on his loan? 



REMfllNING BflLflNCE ON ft LORN 

REGULfiR PflVMENT? 20© 

PRINCIPftL? 8000 

# OF PfiVriENTS PER VEflR? 12 

ANNUftL INTEREST RfiTE? 17.2 

LAST PflVMENT MADE: 

<: PflVMENT NUMBER.. VEflR)? 10.. 4 

REMAINING BflLflNCE = $ 2496. 17 



MORE IiflTfl? a=VES.0=NO;r? O 



10 PRINT "□REMAINING BALANCE ON A LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT".: 
40 INPUT R 

50 PRINT "PRINCIPAL".; 
60 INPUT P 

70 PRINT "# OF PAVMENTS PER VEAR".: 
.30 INPUT N 

90 PRINT "ANNUAL INTEREST RATE"; 
100 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/100 

119 REM - ENTER THE PflVMENT NUMBER WITHIN THE VEflR.. I.E. NK=N 

120 PRINT "LflST PflVMENT MflDE:" 
125 PRINT "(PflVMENT NUMBER. VEflR .V ; 
130 INPUT N1..V 

139 REM - INITIALIZE REMAINING BALANCE 

140 E0=P 
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149 REM - LOOP TO flCCUMULflTE AMOUNT PAID SO FAR 

150 FOR Jl=l TO N*<V-1>+N1 

159 REM - CflLCULflTE INTEREST PfilD WITH EACH PflVMENT 

1 60 1 1 = I NT < < B0* I /N > * 1 00+ . 5 > / 1 00 

169 REM - CFILCULflTE AMOUNT flMORTIZED WITH EACH PAVMENT 

1 70 A— P~ I 1 

179 REM - CALCULATE REMAINING BALANCE ON PRINCIPAL 

180 B0=B0-A 
190 NEXT Jl 

199 REM - ROUND OFF.. PRINT 

200 PRINT "REMAINING BALANCE = 
205 PRINT INT<B0*100+.5.>/100 
210 PRINT 

219 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

220 PRINT "MORE DATA? < 1=VES.. 0=NO> " .: 
230 INPUT K 

240 IF :K=1 then 20 
250 END 



OPTION 

You may wish to specify the number of the last payment made as the total payment number rather than the 
payment number within a certain year. For instance, when 4 payments are made per year, payment 3 of year 3 
would be entered as payment number 11. The program changes necessary are listed following the example 
below. 

Example: 

John made ten quarterly payments of $550.CX) on a loan of $6000.00 with 16% interest. What is his remain- 
ing balance? 

REMAINING BALANCE ON A LOAN 

REGULAR PAVMENT? 558 
PRINCIPAL? 6000 
# OF PAVMENTS PER VEAR? 4 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAVMENTS MADE? 10 
REMAINING BALANCE = $ 24278.09 

MORE DATA? a=VES.. 0=NO.V? 



1 REM - OPTION 119-130.. 150 

10 PRINT "REMAINING BALANCE ON A LOAN 



110 I = I.-''100 

119 rem' - ENTER THE PAVMENT NUMBER OF PAVMENTS MADE TO DATE 

120 PRINT "NUMBER OF PAVMENTS MADE".: 
130 INPUT Nl 

139 REM - INITIALIZE REMAINING BALANCE 

140 B0=P 

149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 

150 FOR Jl=l TO Nl 

159 REM - CALCULATE INTEREST PAID WITH EACH PAVMENT 



250 END 
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Term of a Loan 



This program calculates the period of time needed to repay a loan. You must specify the amount of the 
loan, the amount of the payments, the number of payments to be made per year and the annual interest rate on 
the loan. All payments are assumed to be equal. 

The term of payment is derived from the following formula: 



where: / = term of payment in years 

P = principal 

/ = annual interest rate 

N = number of payments per year 

R = amount of payments 



What would be the duration of payment on a mortgage of $20,000.CX) at 18% when payments of $1000.00 
are to be made quarterly? 

Sally takes out a loan for $12,669.00 at 16.8%. Her payments are $512.34 every two months. What is the 
term of her loan? 



TERM OF fl LOAN 

REGULAR PflVMENT? 1008 

PRINCIPAL? 20000 

ANNUAL INTEREST RATE? 18 

# OF PAVriENTS PER VEAR? 4 
TERM = 13.1 VEARS 

MORE DATA? <1=VES. 0=NO.>? 1 

REGULAR PAVMENT? 512.34 

PRINCIPAL? 12669 

ANNUAL INTEREST RATE? 16.8 

# OF PAVMENTS PER VEAR? 6 
TERM = 7.1 VEARS 

MORE DATA? (1=VES.. 0=NO)? 




Examples: 
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10 PRINT ".TTERM OF fl LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT"; 
40 INPUT R 

50 PRINT "PRINCIPAL"; 
60 INPUT P 

70 PRINT "ANNUAL INTEREST RATE"; 
80 INPUT I 

90 PRINT "# OF PAVMENTS PER VEAR"; 
100 INPUT N 

108 REM - CALCULATE TERM IN YEARS BV FORMULA; 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION 

110 V=-<L0G<1-<P#< 1/100) >/<:N*R>>/(LOG<1+I/100/N)*N>> 

119 REM - ROUND OFF TO NEAREST TENTH. PRINT 

120 PRINT "TERM ="; INT<V*10+.5>/10; 
125 PRINT "VEARS" 

130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=VES..0=NO.V'; 
150 INPUT K 

160 IF h'=l THEN 20 
170 END 



OPTION 

It is possible to calculate the term of payment in years and months rather than just years. To do this, make 
the program changes listed following the example below. 

Example: 

Dick took out a loan for $8000.00 at 7.5%. Regular payments of $150.00 are to be made monthly. How long 
will it take to pay off the loan? 



TERM OF A LOAN 

REGULAR PAVMENT? 150 
PRINCIPAL? 8000 
ANNUAL INTEREST RATE? 7.5 
# OF PAVMENTS PER VEAR? 12 
TERM = 5 VEARS.. 5 MONTHS 

MORE DATA? a=VES.0=NO)? Q 
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IREM - OPTION 114-120 

10 PRINT "::7rERM OF fl LORN 



m 

1 1 V=- < LOG < 1 - 1' P* < I / 1 00 > > / < N*R ;> > / <; LOG < 1 + 1 /' 1 QQ/hi > *N 

114 REM -CftLCULflTE VEflRS AND MONTHS FROM VEflRS 

115 M=INT<V*12+.5> 

116 V0=INT<M/12> 

117 M=M-V0*12 

119 REM - PRINT RESULTS 

120 PRINT "TERM =".;V0; "VEflRS.. ".:M.; "MONTHS" 
130 PRINT 



170 END 



Annual Interest Rate on a Loan 



This program calculates the rate at which interest is charged on a loan. To detemnine this rate you must 
enter the amount of the loan, the amount of the regular payment, the number of payments per year, and the temn 
of the loan. 

The annual interest rate is computed by the following method of approximation: 

1) Guess an interest rate 
Initialize last guess to 

2) Compute regular payment using guessed rate: 

/ • PIN 

/?i = 



3) 
4) 



1-((1+/)//V)-/V-/ 
Round off R , 

If computed payment = actual payment, then current guess = approximate interest rate 
Otherwise, save current guess and calculate a new guess 



/■ = /±1 (i-i^)/2\ 




5) 



Go to 2 
where: 



'2 = 

R = 

/?, = 

P = 

N = 

/ = 



interest rate 
previous interest rate 
input regular payment 
computed regular payment 
principal 

number of payments per year 
number of years 



Examples: 

Cindy borrowed $3000.00 from her friend George with an agreement to pay back $400.00 quarterly for 2 
years. At what interest rate is she being charged? 

To pay back a loan of $10,000.00 John contracted to make monthly payments of $120.00 for 9.5 years. At 
what rate is interest being charged? 



RNNUflL INTEREST RATE ON Fl LOftN 

REGULAR PflVflENT? 480 

TERM IN VEflRS? 2 

PRINCIPfiL? 3000 

# OF PflVriENTS PER VEflR? 4 

ANNUflL INTEREST RATE = 5.827 'A 

MORE DATA? <1=VES..0=NO.>? 1 
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REOULflR PflVMENT? 12© 

TERM IN VEflRS? 9.5 

PRINCIPAL? 10000 

# OF PflVMEHTS PER VEflR? 12 

flNNURL INTEREST RATE = 6.933 >i 

MORE DflTfl? <1=VES..0=NO)? 



10 PRINT "HRNNUflL INTEREST RATE ON ft LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT"; 
40 INPUT R 

50 PRINT "TERM IN VEARS"; 
60 INPUT V 

70 PRINT "PRINCIPAL"; 
80 INPUT P 

90 PRINT "# OF PAYMENTS PER VEAR"; 
100 INPUT N 

109 REM - GUESS AN INTEREST RATE <1&-D TO INITIATE TESTING 

110 1=10 

119 REM - I2=LAST GUESS OR ESTIMATE (START WITH @) 

120 12=0 

129 REM - COMPUTE REGULAR PAVMENT USING GUESSED INTEREST RATE 

1 30 R 1 = < I *P/N > / <; 1 - 1 / < C I /N+ 1 > t <: N*V > > > 

139 REM - ROUND OFF TO NEAREST CENT 

140 R 1 = I NT < R 1 * 1 00+ . 5 > / 1 00 

149 REM - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE 

150 I3=ABS(I-I2>/2 

159 REM - SAVE THIS GUESS 

160 12=1 

168 REM - COMPARE COMPUTED PAVMENT <R1> TO INPUT PAVMENT <R>i 

169 REM - IF THEV'RE EQUAL.. LAST RATE GUESSED=APPROXIMATE INTEREST RATE 

170 IF R1=R THEN 230 
180 IF R1>R THEN 218 

189 REM - RKR.. RATE MUST BE HIGHER THAN LAST GUESS 

190 1=1+13 

199 REM - RETEST WITH NEW GUESS 

200 GOTO 130 

209 REM - Ri:>R, RATE MUST EE LOWER THAN LAST GUESS 

210 REM 
212 1=1-13 

219 REM - RETEST WITH NEW GUESS 

220 GOTO 130 

229 REM - COMPUTE INTEREST TO PROPER PROPORTIONS.. ROUND OFF-PRINT 

230 I = ( ( I NT C ( I * 1 000 > * 1 00+ . 5 > > / 1 00 ) / 1 001-1 

240 PRINT "ANNUAL INTEREST RATE =" : 
245 PRINT 1*100.; ";i" 
250 PRINT 

259 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

260 PRINT "MORE DATA? a=VES.. 0=NO V : 
270 INPUT K 

280 IF K=l THEN 20 
290 END 
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OPTION 



The above listing allows the term of the loan to be entered in years only. You nnay wish to enter the term in 
years and months rather than years. The program changes necessary are listed following the example below. 

Example: 

If Connie pays $100.00 per month for 1 1 years and 7 months on a $10,000.00 loan, what is the annual in- 
terest rate on the loan? 



ANHUfiL INTEREST RATE ON fl LOAN 

REOULflR PflVMENT? 160 

TERM IN VEFfRS.. MONTHS? 11..? 

PRINCIPAL? 10000 

# OF PAVMENTS PER VEAR? 12 

ANNUAL INTEREST RATE = 6.002 

MORE DATA? < 1=VES.. 0=NO)? @ 



IREM - OPTION 50-65 

10 PRINT ":i=^NNUAL INTEREST RATE ON A LOAN" 



40 INPUT R 

50 PRINT "TERM IN VEARS.. MONTHS"; 
60 INPUT V0..M 

64 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

65 V=<12*V0+M>/12 

70 PRINT "PRINCIPAL"; 



290 END 
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/ 

Mortgage Amortization Table 



This program calculates and prints a loan repayment schedule. This schedule provides the following out- 
puts: 

1) Payment number 

2) Amount of each payment paid as interest 

3) Amount of the loan amortized with each payment 

4) Balance remaining on the principal at the time of each payment 

5) Accumulated interest paid at the time of each payment 

6) Amount of the last payment 

In addition, the yearly totals of interest paid and amount amortized are tabulated and printed. 

To use this program you must supply the amount of the regular payment, the term of payment, the number 
of payments per year, the amount of the principal and the annual interest rate. 

The schedule is calculated in the following manner: 

1) Payment number = payment number within each year 

2) Amount of each payment paid as interest = remaining balance • UN 

where: / = annual interest rate 

N — number of payments per year 

3) Amount amortized with each payment = /? - / 

where: R = amount of regular payment 

/ = amount of each payment paid as interest 

4) Balance remaining =P-'XA 

where: P = principal 

lA = sum of amounts amortized with each payment to date 

5) Accumulated interest = 2 / 

where: H = sum of amounts of each payment paid as interest to date 

6) Amount of last payment =R + {P - R > N ' Y) 

where: R = regular payment 
P = principal 

N = number of payments per year 
/ = number of years 

Example: 

David needs $2100.00 to pay off some debts. His sister offers him the money at 6% interest. With pay- 
ments of $75.00 monthly for 2V2 years, what is David's repayment schedule? 

MORTGAGE ftMORTIZflTION TABLE 

REGULAR PAYMENT? 75 
TERM IN VEARS? 2.5 
PRINCIPAL? 2100 
ANNUAL INTEREST RATE? 6 
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PflVMENTS PER VEflR? 12 
START WITH WHAT VEfiR? 1 

ENTER -C-' TO CONTINUE? C 
MORTGflOE flMORTIZflTION TABLE 



PRINCIPAL ■$ 2108 AT 6 'A FOR 2.5 VEARS 
REGULAR PAVMENT = * 75 



NO 


INTR 


">-■ >';- .» 
AMORT 


BALANCE 


ACCUM INT 


1 


10.5 


64.5 


2035.5 


10.5 


2 


10. IS 


64.82 


1970.68 


20.68 


•km* 


9.85 


65. 15 


1905.53 


30.53 


4 


9.53 


65.47 


1840.06 


40.06 


5 


9.2 


65.8 


1774.26 


49.26 


6 


8.87 


66. 13 


1708. 13 


58.13 


*T 


8.54 


66.46 


1641.67 


66.67 


8 


8.21 


66.79 


1574.88 


74.88 




7.87 


67. 13 


1507.75 


82.75 


10 


7.54 


67.46 


1440.29 


90.29 


11 


7.2 


67. 8 


1372.49 


97.49 


12 


6.86 


68. 14 


1304.35 


104.35 



VR 1 104.35 795.65 



ENTER -C- TO CONTINUE? C 
MORTGAGE AMORTIZATION TABLE 



PRINCIPAL $ 2100 AT 6 FOR 2.5 VEARS 
REGULAR PAVMENT = * 75 



NO 


INTR 


AMORT 


BALANCE 


ACCUM INT 


1 


6.52 


68.48 


1235.87 


110.87 


Cm 


6.18 


68.82 


1167.05( 


117.05 


%m* 


5.84 


69. 16 


1097.89 


122.89 


4 


5.49 


69.51 


1028.33 ' 


128.38 


5 


5. 14 


S9.B6 


958.52 ; 


133.52 


6 


4.79 


70.21 


888.31 ' 


138.31 


7 


4.44 


70. 56 


817.75 


142.75 


O 
•-• 


4.09 


70. 91 


746.84 


146.84 


9 


3.73 


71.27 


675.57 ' 


150.57 


10 


3. 38 


71.62 


603.95 i 


153.95 


11 


3.02 


71.98 


531.97 


156.97 


12 


2.66 


72. 34 


459.63 


159.63 



VR 2 55.28 844.72 



ENTER •••C TO CONTINUE? C 



MORTGAGE flMORTIZFiTION TABLE 

PRINCIPAL * 2100 AT 6 'i FOR 2.5 VEARS 
REGULAR PAVMENT = * 75 



NO 


INTR 


AMORT 


BALANCE 


ACCUM INT 


1 




ICn ( 


386. 93 


161.93 




T.93 


73.07 


313.86 


163.86 




1.57 


73. 43 


240.43 


165.43 


4 


1 •"• 


1 ■_■ . •_■ 


166. 63 


166. 63 


5 


. oo 


74.17 


92.46 


167.46 


s 


.46 


92.46 





167.92 



LAST PAVMENT = $ 92.92 



VR 3 8.29 459.63 



CHANGE DATA AND RECOMPUTE? 
a=VES..0=NO>? 



10 PRINT ".ICiRTGAGE AMORTIZATION TABLE" 
20 PRINT 

29 REM - STATEMENTS 39 TO 150 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT".: 
40 INPUT R 

50 PRINT "TERM IN VEARS"; 
60 INPUT V 

70 PRINT "PRINCIPAL"; 
80 INPUT P 

90 PRINT "ANNUAL INTEREST RATE"; 
100 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/100 

120 PRINT "PAVMENTS PER VEAR"; 
130 INPUT N 

140 PRINT "START WITH WHAT VEAR"; 
150 INPUT K 

159 REM - START PRINTING AT BEGINNING OF A VEAR 

160 K=im<K> 

169 REM - INITIALIZE VARIABLES 

170 C1=0 
180 12=0 
190 13=0 

200 .T0=0 

210 N1=N 
220 K=20 
230 B0=P 
240 A 1=0 
250 A2=0 

259 REM - TERM LESS THAN ONE VEAR? 

260 IF INT';V»=1 THEN 270 
262 N1 = <<:V-INT<V>>*12>/12*N 

264 J0=J0+1 

265 GOTO 280 

269 REM - LOOP FOR EACH VEAR 
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270 FOR J0=1 TO INT<V> 

279 REM - STfiRT PRINTING? 

280 IF JQ<K THEN 410 

289 REM - CHECK FOR FULL SCREEN (20 LINES> 

290 IF K+N+3<20 THEN 400 

295 REM - miT FOR OPERATOR CUE TO GO TO NEXT SCREEN 
297 PRINT 

300 PRINT "ENTER -C- TO CONTINUE".: 
310 INPUT W$ 
330 PRINT 

339 REM - PRINT PAGE HEfllUNGS 

340 PRINT ".IIORTGfiGE flMORTIZFlTION TABLE": PR I NT 
350 PRINT "PRINCIPAL f".:P;" AT".: 1*100; 

:355 PRINT "'i .FOR" .: V" YEARS" 

:360 PRINT "REGULAR PAYMENT = $".:R 

370 PRINT 

3:30 PRINT " NO INTR AMORT".. 
:385 PRINT "BALANCE" "ACCUM INT" 

389 REM - COUNT LINES PRINTED ON EACH PAGE IN K 

390 K=7 
400 K=K+N+3 

410 FOR J 1=1 TO Nl 

419 REM - CALCULATE INTEREST PAID THIS PAYMENT.. ROUND OFF 

420 Il=INT<<B0*I/N>*100+.5>.-^100 

429 REM - COUNT NUMBER OF PAYMENTS MADE SO FAR 
4:30 C1=C1 + 1 

4:39 REM - CALCULATE AMOUNT AMORTIZED THIS PAYMENT 
440 A=R-I1 

449 REM - SUM AMOUNT AMORTIZED TO DATE 

450 A1=A1+A 

459 REM - CALCULATE BALANCE DUE 

460 B0=P-A1 

468 REM - LAST PAYMENT? IF YES.. CALCULATE AMOUNT SO THAT THE 

469 REM - BALANCE DUE EQUALS $00,00 AFTER THIS PAYMENT 

470 IF C10N*Y THEN 52© 
4i30 R=R+B0 

490 A=A+B0 
500 A1=A1+B0 
510 B0=0 

519 REM - SUM INTEREST PAID TO DATE 

520 12=12+11 

529 REM - :5UM INTEREST PAID THIS YEAR 

530 13=13+11 

5:39 REM - SUM AMOUNT AMORTIZED THIS YEAR 

540 A2=A2+A 

54 1 A2= I NT ( A2* 1 00+ . 5 > 1 00 

549 REM - STARTED PRINTING? IF YES.. PRINT COMPUTED VALUES IN TABLE 

550 IF jeO< THEN 570 

55 1 A= I NT < A* 1 00+ . 5 > 1 00 

560 PR I NT J 1 .: TAB < 4 !:- .:!!.: TAB < 1 2 > .: A .: 

56 1 B0= I NT < B0* 1 00+ . 5 > 1 00 

565 PRINT TAB«C20>;B0;TAE';2S>; 12 
570 NEXT Jl 

579 REM - LAST PAYMENT? IF YES.. ROUND OFF.. PRINT 

580 IF C1<>N*Y THEN 60© 

590 PRINT " LAST PAYMENT = *".:INT(R* 100+. 5>.-'100 

599 REM - STARTED PRINTING? IF YES ..PR I NT YEARLY TOTALS 
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600 IF J0« THEN 640 
610 PRINT 

620 PRINT "VR";J0.:l3;fl2 
630 PRINT 

639 REM - COMPLETED TERM? 

640 IF J0>V THEN 720 

649 REM - REINITIALIZE VEftRLV VflRIFfELES 

650 13=0 
660 fl2=0 

670 NEKT J0 

671 J0=J0-1 

679 REM - NEED TO PRINT fl PFIRTIftL VEFIR? 

680 IF VOJ0 THEN 262 
720 PRINT 

729 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

730 PRINT "CHANGE DATA AND RECOMPUTE?" 
735 PR I NT " 1 =VES .. 0=NO > " .: 

740 INPUT Z 

750 IF Z=l THEN 20 

760 END 



OPTION 

You may wish to enter the term of payment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

If you took out a loan for $700.00 from a friend at 9% interest and were to pay $100.00 per month for 8 
months, what would your repayment schedule be? 



MORTGAGE AMORTIZATION TABLE 

REGULAR PAYMENT? 100 

TERM IN VEARS.. MONTHS? 0..8 

PRINCIPAL? 700 

ANNUAL INTEREST RATE? 9 

PAYMENTS PER VEAR? 12 

START WITH WHAT VEAR? 1 



ENTER -C- TO CONTINUE? C 
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MORTGAGE flMORTIZflTION TfiELE 



PRINCIPfiL * 700 FIT 9 K 





FOR £ 


:i VEflRS 8 


K-ir'iL i*T*i i^**- 

MONTHS 






JLftR PflVMENT = $ 


1 80 




kin 


IHTR 


AMORT 


r-nLnnLt 


Or-Pl IM T KIT 


1 


5.25 


94.75 


t'05 . ii.5 


5. 25 


f' 


4.54 


95.46 


509 . 79 


9. 79 






96. IS 


413.61 


13.61 


4 


5! r 


96.9 


316.71 


16.71 


5 




97.62 


219.09 


19.09 


f, 


1.64 


98.36 


120.73 


ciO. I'' 3 


(' 


.91 


99. 09 


21.64 


21.64 




. 16 


21.64 





21.8 



LAST PAVMENT = * 21.8 



VR 1 21.8 700 



CHANGE DATA AND RECOMPUTE? 
<1=VES..0=NO>?0 



1 REM - OPTION 50-65.350 

10 PRINT "IllORTGAGE AMORTIZATION TABLE" 



40 INPUT R 

50 PRINT "TERM IN VEARS"; 
60 INPUT V 

64 REM - CONVERT VEARS AND MONTHS TO VEARS 

65 V=<12*V0+M>/12 

70 PRINT "PRINCIPAL"; 



340 PRINT "MORTGAGE AMORTIZATION TABLE": PRINT 
350 PRINT "PRINCIPAL $";P.;" AT"; 1*100; 
355 PRINT "K-" FOR " ; VO ; " VEARS " ; M ; " MONTHS " 

360 PRINT "REGULAR PAVMENT = *";R 



760 ENIi 
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Greatest Common Denominator 



This program calculates the greatest common denominator of two integers. It is based on the Euclidean 
algorithm for finding the GCD: 

1) Enter A. B 

A = absolute value of A 
B = absolute value of B 

2) Calculate R=A-B ' (integer of (A IB )) 

3) Is /? = 0?. If yes, the GCD = B 

If no, go to step 4 

A) A=B 
B=R 
5) Go to step 2 

Example: 

Find the greatest common denominator of 50 and 18, 115 and 150. 



GREATEST COMMON HENOMINfiTOR 

< ENTER 0..ei TO END PROGRAM;) 
ENTER TWO NUMBERS? 50.. 18 
G.C.Ii: 2 

ENTER TWO NUMBERS? 11.5.. ISO 
G.C.D: 5 

ENTER TWO NIJMBER.S? 0..0 



10 PRINT "^GREATEST COMMON BENOMINATOR" 
20 PRINT 

30 PRINT "(ENTER 0..0 TO END PROGRAM >" 
40 PRINT "ENTER TWO NUMBERS".: 
■50 INPUT A..E 

59 REM - END PROGRAM? 

60 IF AO0 THEN SQ 
70 IF BOO THEN 9© 
80 GOTO 190 

89 REM - CALCULATE GCD ACCORDING TO EUCLIDEAN ALGORITHM.. PRINT RESULT 

90 A=ABS<A> 
100 B=ABS';B> 

110 R=A-B.*INT'::A/B) 

120 IF R=0 THEN 16© 

130 A=B 

140 E=R 

150 GOTO 110 

160 PRINT "G.C.D-".;E 
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169 REM - PRINT BLANK LINE TO SEPflRflTE SETS OF DflTfl 

170 PRINT 

179 REM-RESTflRT PROGRAM 

180 GOTO 40 
190 ENB 



Prime Factors of Integers i ,.J-^IU. 



This program lists the prime factors of an integer. It will not test for the integer 0. 

Examples: 

What are the prime factors of -49? 

Factor 92 into primes. 



PRIME FACTORS OF INTEGERS 

ENTER 8 TO END PROGRftM) 
NUMBER? -49 
-1 
7 t 2 

NUMBER? 92 
1 

2 t 2 
23 t 1 

NUMBER? 



18 PRINT ".TPRIME FACTORS OF INTEGERS" 
20 PRINT 

38 PRINT "(ENTER 8 TO END PROGRAM)" 
40 PRINT "NUMBER".: 

58 INPUT Z 

59 REM - END PROGRAM? 

68 IF Z=0 THEN 288 

69 REM - THE SIGN OF THE NUMBER IS AL WAV'S A FACTOR 

78 PRINT SGNCZ) 

79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS 
88 Z=ABS<Z> 

88 REM - LOOP TO TEST ALL INTEGERS <.2 THROUGH Z> AS PRIME FACTORS 

89 REM - INTEGERS Z/2 THROUGH Z WILL HAVE NO NEW FACTORS 
98 FOR 1=2 TO Z/2 

180 S=8 

lie IF Z/IOINT<Z/i:> THEN 158 
120 Z=Z/I 
130 S=S+1 
140 GOTO 110 

149 REM - FIND A PRIME FACTOR? IF VES. PRINT 

150 IF S=0 THEN 170 

159 REM - PRINT FACTORS WITH EKTOCNTS; irS=I TO THE S POWER 

160 PRINT I.;"t".;S 
170 HEXl I 

180 PRINT 
190 GOTO 40 
200 END 
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Area of a Polygon , / / J,^ 



This program calculates the area of a polygon. You must supply the x - and / -coordinates of all vertices. 
Coordinates must be entered in order of successive vertices. 

The formula used to calculate the area is: 

Area '^ix x 2)-(y 2) + ^^ i-^ ^ 3)'^ 2-y 3) + •••Un + >f •(/aj-/i)12 
where n =the number of vertices. 

The number of vertices you may enter is currently limited to 24. You may increase or decrease this limit by 
altering statement 30 according to the following scheme: 

30 DIM X(/7+ /> , Y(/7+ /) 



Example: 

Approximate the area of Lake Boyer. 




fiREfl OF fl POLVGON 

< ENTER TO END> 
NUMBER OF VERTICES? 14 
COORDINATES: 

VERTEX 1 ? 0.4 
VERTEX 2 ? I..7 
VERTEX 3 ? 4.8 
VERTEX 4 ? 5.10 
VERTEX 5 ? 7.11 
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VERTEX 6 ? 9.10 
VERTEX 7 ? 12.. 9 
VERTEX 8 ? 14.8 
VERTEX 9 ? 13.4 
VERTEX 10 ? 15.4 
VERTEX 11 ? 15.1 
VERTEX 12 ? 13.0 
VERTEX 13 ? 5.1 
VERTEX 14 ? 4.2 

flREfl = 108 

CENTER TO END> 
NUMBER OF VERTICES? 



10 PRINT ".IRREfi OF fl F'OLVGON" 
20 PRINT 

29 REM - COORD I NATE fiRRflVS SHOULD BE SET TO (NUMBER OF VERTICES +1> 

30 DIM X<25>.V<25> 

40 PRINT "(ENTER TO END>" 
45 PRINT "NUMBER OF VERTICES"; 
50 INPUT N 

59 REM - END PROGRAM? 

60 IF N=0 THEN 230 

69 REM - LOOP TO ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES 

70 FOR 1=1 TO N 

80 IF I>1 THEN 110 

90 PRINT "COORDINATES-" 

95 PRINT " VERTEX".:!; 

100 GOTO 120 

110 PRINT " VERTEX"; I; 

120 INPUT XC I >.¥<!> 
130 NEXT I 

139 REM - FIRST VERTEX SERVES AS LAST VERTEX 

140 XCN+l>=X<i> 

150 v<N+i>=va> 

160 A=0 

169 REM - CALCULATE AREA. PRINT 

170 FOR 1=1 TO N 

1 80 A= A+ < X < I > +X a + 1 > > * < V ( I > - V < I + 1 > > 
190 NEXT I 

200 PRINT "AREA =" ; ABS(A>.■■■'2 
210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 
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Parts of a Triangle 



This program calculates three unknown parts of a triangle when three parts are given. At least one part 
given must be the length of a side. There are five possibilities for data entry: 

1) Angle, side, angle 

2) Side, angle, side 

3) Angle, angle, side 

4) Side, side, angle 

5) Side, side, side 

Data must be entered in the order it appears in a triangle, either clockwise or counterclockwise. 
Example: 

The base of a triangle measures 14 inches. The base angles measure .45 and 2.1 radians. What are the 
measurements of the triangle? 




14" 



PARTS OF ft TRIANGLE 
PROBLEM TVPES: 

l=flSfl.. 2=SfiS.. 3=fiflS 

4=SSfl.. 5=SSS. 6=ENrf 

ENTER PROBLEM TVPE? 1 

ENTER ANGLE. SIDE. ANGLE? .45.. 14.. 2.1 

SIDE 1 = 10.913 

OPPOSITE ANGLE= .45 RflDIANS 

SIDE 2 = 21.67 

OPPOSITE AN6LE= 2.1 RflDIANS 

SIDE 3 = 14 

OPPOSITE ANGLE= .592 RADIANS 
ENTER PROBLEM TVPE? 6 
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10 PRINT ".T'fiRTS OF fl TRIANGLE" 

20 PRINT 

30 rUM fi(3)..S<3> 

38 REM - ENTER NUMBER OF PROBLEM TVPE ACCORDING TO KNOWN PART?: 

39 REM - OF THE TRIANGLE WHERE A=ANGLE.. S=LENGTH OF SIDE 

40 PRINT "PROBLEM TVPES:" 

50 PRINT SPC(:i5>;"l=ASA.. 2=SAS. 3=AAS" 
55 PRINT SPC<15).: "4=SSA.. 5=SSS. 6=END" 
57 PRINT 

60 PRINT "ENTER PROBLEM TVPE"; 
70 INPUT K 

73 REM - DIRECT PROGRAM TO PROPER CALCULATIONS 

80 IF K=6 THEN 560 

30 IF K=5 THEN 390 

100 IF :=-^=4 THEN 300 

110 IF J<:=3 THEN 260 

120 IF :K=2 then 190 

130 PRINT "ENTER ANGLE.. SIDE.. ANGLE".: 

140 INPUT A(1>..SC3>..A<2) 

1 50 A < 3 > =1T- A < 1 > -A <. 2 > 

160 S<1>=S<3>*SIN<A<1>>/SIN<A<3>> 

170 S<2>=S<3>*SIN<A<2>>/SIN<A<3>> 

180 GOTO 440 

190 PRINT "ENTER SIDE.. ANGLE.. SIDE".; 
200 INPUT S<3>.Aa>.S(2> 

210 S< 1 >=SQR(S(3> t2+S<2> t2-2*S<3>*S<2>*C0S<:A< 1 > > > 

220 A<2>=SIN<A<1>>/S<1>*S<2> 

230 A(2>=ATN<A(2>/SQR<1-<A<2>>12>> 

240 AC3>=ff-A<l>-A<2> 

250 GOTO 440 

260 PRINT "ENTER ANGLE.. ANGLE.. SIDE".; 
270 INPUT A<3>..A<2>..S<3> 
280 A<l>=ff-A<2>-A<3) 
290 GOTO 160 

300 PRINT "ENTER SIDE.. SIDE.. ANGLE".; 

310 INPUT S<i;3..S<2>..A<l> 

320 T=S<2>*SIN<Aa>> 

330 IF S<1><T THEN 520 

340 S<3>=SQR<S<2>12-Tt2> 

350 IF S<1><=T THEN380 

360 V=SQR(S<l>t2-T'f2) 

370 S<3>=S<3>+V 

380 GOTO 220 

390 PRINT "ENTER SIDE.. SIDE.. SIDE".; 
400 INPUT S<1>..S<2>..S<3> 

410 Aa > = <S<::2) t2+S<3> t2-S<: 1 > •t2>/2.''S<2>/S(:3> 
420 A < 1 > = ATN < < SQR CI - < A ( 1 > > t2 > > /A < 1 > > 
430 GOTO 220 
440 PRINT 

449 REM - RESTART PROGRAM 

450 FOR 1=1 TO 3 

459 REM - THE ANGLE OF A TRIANGLE CANNOT BE LESS THAN ZERO 

460 IF AC 1X0 THEN 520 
470 PRINT "SIDE".: !.;"=" ; 

475 PRINT INTCSCI>*1000+.5>/1000 
480 PRINT "OPPOSITE ANGLE="; 
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485 PRINT INT<fl(I>*1000+.5>/1000.: 

486 PRINT "RflDIflNS" 
490 NEKT I 

500 PRINT 
510 GOTO 60 
520 PRINT 

530 PRINT "NO SOLUTION" 
540 PRINT 

549 REM - RESTART PROGRAM 

550 GOTO 60 
560 END 



OPTION 

It may be more convenient for you to work with angles in degrees rather than radians. The program 
changes necessary are listed following the examples below. '""^ 

Examples: 

A square measures 8.76" x 8.76". What is the length of its diagonal? 



8.76" 




The ladder of a slide measures 10', the slide 14', and it covers 13' of ground from base of ladder to tip of 
slide. How steep is the slide? 




PARTS OF A TRIANGLE 
PROBLEM TVPES : 

1=ASA.. 2=SAS.. 3=AAS 

4=SSA.. 5=SSS.. 6=ENri 

ENTER PROBLEM TVPE? 2 

ENTER ANGLE.. SIDE.. ANGLE? 8. 76.. 90.. 8. 76 
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SIDE 1 = 12.389 

OPPOSITE flNGLE= 98 DEGREES 

SIDE 2 = 8.76 

OPPOSITE flNGLE= 45 DEGREES 
SIDE 3 = 8.76 

OPPOSITE flNGLE= 45 DEGREES 

ENTER PROBLEM TVPE? 5 

ENTER ANGLE.. SIDE.. RNGLE? 18.. 13.. 14 

SIDE 1 = 10 

OPPOSITE flNGLE= 43.279 DEGREES 
SIDE 2 = 13 

OPPOSITE flNGLE= 63.827 DEGREES 
SIDE 3 = 14 

OPPOSITE flNGLE= 73.694 DEGREES 
ENTER PROBLEM TVPE? 6 



1 REM - OPTION 34-35.. 145-456 ..205 ..275-276 ..3 15.. 485 
10 PRINT "MRTS OF ft TRIANGLE" 



34 REM - SET CONVERSION FACTOR FOR CONVERTING DEGREES TO RADIANS 

35 C=. 0174532927 

40 PRINT "PROBLEM TVPES" 

M 

a 

1 40 I NPUT A < 1 > .. S C 3 > .. A ( 2 ) 

145 ACl>=Aa>*C 

146 A<2>=A(2>*C 

1 50 A < 3 > =Tr- A ( 1 > - A < 2 > 

■ 
■ 
■ 

200 I NPUT S <: 3 > .. A < 1 > .. S ( 2 > 
205 A<1>=A<1>*C 

210 Sa >=SQR<S<3> t2+S<2> t2-2*S<3>*S(2>*C0S< A<: 1 > > > 

m 
m 
m 

270 I NPUT A 3 > .. A < 2 ) .. S < 3 > 

275 A<:3>=A(3>*C 

276 A';2>=A'C2>*C 

280 A<l>=iT-A<2>-A<3> 

a 
■ 

310 INPUT S(l>.S(2>..Aa> 

315 A<1>=A<1>*C 

320 T=S<2>*SIN<Aa>> 

a 
a 

470 PRINT '■SIDE".:I.: "=".; 

475 PRINT INT<S<I>*1000+.5>/1000 

480 PRINT "OPPOSITE ANGLE=".: 

485 PRINT "DEGREES" 

490 NEKT I 

a 
a 
■ 

560 END 
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Analysis of Two Vectors u^kU. 



This program calculates the angle between two given vectors, the angle between each vector and axis, and the 
magnitude of each vector. The vectors are given in three dimensional space. 



Example: 

Find the angle ( 9 ) between a diagonal of a cube and a diagonal of one of its faces. The cube measures 
4x4x4. 



(0,4,4) 




(0,0,0) (4,0,0) 



flNflLVSIS OF TWO VECTORS 

VECTOR l: X..V.Z? 0..4.4 
VECTOR 2- X.V..Z? 4.4.4 

VECTOR 1 

MAGNITUDE: 5.65685425 
ANGLE WITH X-flXIS: 90.0008088 
ANGLE WITH V-AXIS: 45.8008004 
ANGLE WITH Z-AXIS: 45.0000004 

VECTOR 2 

MAGNITUDE: 6.92820323 
ANGLE WITH X-AXIS: 54.7356108 
ANGLE WITH V-AXIS: 54.7356188 
ANGLE WITH Z-AXIS: 54.7356188 

ANGLE BETWEEN VECTORS: 35.26439 

MORE DATA a=VES.0=NO>? 



16 PRINT "^RNALVSIS OF TWO VECTORS" 
20 PRINT 

30 DIM X<2>/t'<2.\.Z<2.\.M(2.> 

39 REM - STATMENTS 48 TO 7© REQUEST VECTOR COORDINATES 

40 PRINT "VECTOR 1: X..V..Z".: 
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50 INPUT X(:i>..V<l>..Z<l> 
68 PRINT "VECTOR 2= X..V..Z"; 
70 INPUT K<2>..V<2>.Z<:2> 
S0 PRINT 

89 REM - LOOP TO FINflLVZE VECTORS 

90 FOR 1=1 TO 2 

99 REM - CflLCULflTE MAGNITUDE.. PRINT 

100 M< I >=SQR<X< I > t2+V< I > 12+Z< I > t2> 

109 REM - IS VECTOR fl POINT? IF VES. CANNOT COMPUTE AN ANGLE 

110 IF M<I>=0 THEN 220 
120 PRINT "VECTOR"; I 

130 PRINT "MAGNITUDE: ".: MCI) 

139 REM - CONVERSION FACTOR FOR RADIANS TO DEGREES 

140 8=57.29578 

149 REM -"calculate ANGLE BETWEEN VECTOR AND X-AXIS. PRINT 

150 j=xa>/M<i> 

160 PRINT "ANGLE WITH X-AXIS- ".: 
162 IF J=0 THEN 167 

165 PRINT ATN<<SQR<:i-Jt2>>/J)*S 

166 GOTO 170 
Ifujp' PRINT '"^'^it/'"' 

169 REM - CALCULATE ANGLE BETWEEN VECTOR AND V-AXIS.. PRINT 

170 J=Y<:i>/M<I> 

180 PRINT "ANGLE WITH V-AXIS-".: 
182 IF J=0 THEN 187 

185 PRINT ATN<<SQRa-Jt2.>.V-'J>3ifS 

186 GOTO 190 

187 PRINT S3ffiT/2 

189 REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS. PRINT 

190 J=Z<I.>/M<I> 

200 PRINT "ANGLE WITH Z-AXIS:".: 
202 IF J=0 THEN 207 

205 PRINT ATN<<SQR<:i-J-T2>.VJ>#S 

206 GOTO 210 

207 PRINT S*iT/2 
210 PRINT 

220 NEXT I 
230 J=0 

239 REM - IF EITHER VECTOR A POINT. CANNOT COMPUTE ANGLE 

240 IF Ma.^=0 THEN 310 
250 IF M<2>=0 THEN 310 

259 REM - CALCULATE ANGLE BETWEEN VECTORS 

260 J=<X<l.>*X<2>+V<l>*V<2.>+Z<:i>*Z<2>VM<:i)/M<2> 

269 REM - ARE VECTORS PERPENDICULAR? 

270 IF JOQ THEN 308 
280 J=90 

290 GOTO 310 

299 REM - CALCULATE ANGLE IN DEGREES. PRINT 

300 J= ATN < SQR a - J 12 .> / J > *S 

310 PRINT "ANGLE BETWEEN VECTORS-"; J 
320 PRINT 

329 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

330 PRINT "MORE DATA <1=VES.0=NO>"; 
340 INPUT Z 

350 IF Z=l THEN 40 
360 END 
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Operations on Two Vectors 



This program performs four operations on two vectors given in three space. The operations performed are: 

1) Addition 

2) Subtraction 

3) Scalar (dot) product 

4) Cross product 

Example: 

Vectors are drawn from the origin to two points A(5,-1,2) and B(1,4,9). Add, subtract, and find the dot and 
cross product of these- vectors. 



OPERATIONS ON TWO VECTORS 



VECTOR fl: .X..V..Z? 5.-1. .2 
VECTOR B: X.V..Z? 1.4.9 

fl+B= 6 .. 3 .. 11 
fl-B= 4 ..-5 ..-7 
fl.B- IS 

fl*B=-17 .:-43 .. 21 

MORE IiflTfl? a=VES.0=NO>? O 



10 PRINT "HOPERflTIONS ON TWO VECTORS" 
20 PRINT 

30 PRINT "VECTOR fl: X.V.Z"; 

40 INPUT ><1.V1.Z1 

50 PRINT "VECTOR B: X.V.Z".: 

60 INPUT X2.V2..Z2 

70 PRINT 

79 REM - PERFORM VECTOR ADDITION. PRINT RESULTING VECTOR COORDINATES 

80 PRINT " A+B= ".: X 1 +X2 VI +V2; 
85 PR I NT " . " • Z 1 +Z2 

89 REM - PERFORM^ VECTOR SUBTRACTION. PRINT RESULTING VECTOR COORDINATES 

90 PRINT "A-B=".X1-X2;".".:V1-V2; 
95 PRINT ".";Z1-Z2 

99 REM - CALCULATE DOT PRODUCT. PRINT 

100 PRINT "A.B=";X1#X2+V1*V2+Z1*22 

109 REM - CALCULATE CROSS PRODUCT. PRINT RESULTING VECTOR COORDINATES 

1 1 PR INT " A*B= " ; V 1 *22-Z 1 * V2 ; " ; " .: 

115 PR I NT Z 1 *X2-X 1 *Z2 ; " . " ; X 1 * V2- V 1 *X2 
120 PRINT 

129 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

130 PRINT "MORE DATA? <1=VES.0=NO>"; 
140 INPUT Z 

1.50 IF Z=l THEN 20 
160 END 
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Angle Conversion: Radians to Degrees 



This program converts an angle given in radians to degrees, nninutes and seconds. 
Example: 

How many degrees, minutes and seconds are there in an angle of 2.5 radians? In 118 radians? 



ANGLE CONVERSION" RflDIflNS TO DEGREES 

'CENTER TO ENB THIS PROGRflfl) 
ANGLE IN RADIANS? 2.5 

DEGREES = 143 
MINUTES = 14 
SECONDS = 22.02 

ANGLE IN RADIANS? 118 

DEGREES = 280 
niNLITES = 54 
SECONDS = 7.15 

ANGLE IN RADIANS? © 



10 PR I NT "□ANGLE CONVERSION: RADIANS TO DEGREES 
20 PRINT 

30 PRINT "< ENTER TO END THIS PROGRAM)" 
50 PRINT "ANGLE IN RADIANS"; 
60 INPUT R 

69 REM - TEST FOR END OF PROGRAM 

70 IF R=0 THEN 170 

79 REM - CONVERT RADIANS TO SECONDS 
30 A=3600*180*R/iT 

89 REM - CALCULATE NUMBER OF WHOLE DEGREES 

90 D=INT<A/3600> 

99 REM - CALCULATE NUMBER OF FULL CIRCLES 

100 D1 = INT<:D/360> 
105 PRINT 

109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES. PRINT 

110 PRINT " DEGREES =";D-360*D1 

119 REM - CALCULATE MINUTES.. PRINT 

120 PRINT " MINUTES =".: 

1 25 PR I NT I NT < < A-D*3600 > /SB > 

129 REM - CALCULATE SECONDS.. ROUND OFF.. PRINT 

1 30 S= A-D*3600- (. I NT < < A-D*3600 > /60 J J *60 
140 PRINT " SECONDS =" ; 

1 45 PR I NT I NT < 1 00*S+ . 5 > 1 00 
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150 PRINT 

159 REM - RESTART PROGRflfl 

160 GOTO 50 
170 END 



OPTION 

You may prefer your answer in degrees and decimals of degrees rather than degrees, minutes and seconds. 
The program changes necessary are listed following the example below. 

Example: 

How many degrees are there in an angle of 2.5 radians? 



RNGLE CONVERSION: RflDIFlNS TO DEGREES 

< ENTER TO END THIS PROGRflri> 
ANGLE IN RflDIflNS? 2.5 

DEGREES = 143 

ANGLE IN RADIANS? O 



1 REM - OPTION 110 

10 PR I NT "□ANGLE CONVERSION: RADIANS TO DEGREES 



109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES.. PRINT 

110 PRINT " DEGREES =".: 

111 PR I NT I NT < ( D-360*-D 1 > * 1 00+ . 5 > / 1 OO 
150 PRINT 



m 

170 END 
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Angle Conversion: Degrees to Radians 



This program converts an angle given in degrees, minutes and seconds to radians. 
Examples: 

An angle measures 30 degrees, 5 minutes and 3 seconds. What would be the measure of this angle in ra- 
dians? 

What would be the radian measurement of two angles measuring 278°, 19', 54" and 721°, 0', 0"? 

ANGLE CONVERSION: DEGREES TO RflDIflNS 

<T0 END.. ENTER 0,0,0} 

ANGLE IN DEGREES.. MINUTES. SECONDS' 

? 38.. 5.. 3 

RflDIflNS = .525067685 

flNGLE IN DEGREES.. MINUTES.. SECONDS" 

RflD i flNs" =" 4 . 8578033 

flNGLE IN DEGREES.. MINUTES.. SECONDS • 

-72 1 ,0,fi 

RflD I flNS ' = . 1 745 1 493 1 

flNGLE IN DEGREES.. MINUTES.. SECONDS: 

? 0..0..0 

10 PRINT "□ANGLE CONVERSION: DEGREES TO RADIANS 
20 PRINT 

30 PRINT "CTO END.. ENTER 0..0.0;'" 
40 PRINT "ANGLE IN DEGREES.. ".: 
45 PRINT "MINUTES.. SECONDS:" 
50 INPUT D..M..S 

59 REM - TEST FOR END OF PROGRAM 

60 IF DO0 THEN 108 
70 IF MO0 THEN 108 
80 IF SO0 THEN 108 
90 GOTO 150 

99 REM - CONVERT DEGREES.. MINUTES.. SECONDS TO DEGREES 

1 00 A=D+M/60+S/3600 

109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES 

110 R=INT<A/360> 

119 REM - CALCULATE ANGLE WITHIN 360 DEGEES.. PRINT 

120 PRINT "RADIANS =".; 

125 PRINT A*. 01745329-R*6. 2831853 
130 PRINT 

139 REM - RESTART PROGRAM 

140 GOTO 40 
150 END 
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OPTION 

It may be more convenient for you to enter the angle in degrees and fractions of degrees rather than 
degrees, minutes and seconds. The program changes necessary are listed following the example below. 

Example: 

How many radians are in an angle measuring 33.08"? 90**? 



aNGLE CONVERSION: DEGREES TO RflDIflNS 

cm END.. ENTER e..0..0> 
hNGLE in DEGREES:? 33.88 
RfiDIflNS = .577354S33 

ANGLE IN DEGREES:? 99 
RflDIflNS = 1.5707961 

ANGLE IN DEGREES-? 6 



1 pgh-j _ npTION 30-60 

10 'print "□=1NGLE CONVERSION: DEGREES TO RflDIflNS 
20 PRINT 

PR-TMT "(TO END.. ENTER 0..0..0>" 
40 PRINT "ANGLE IN DEGREES.. ".: 
=iPi INPUT fl 

59 i;.p;|-.1 _ JEST FOR END OF PROGRAM 

60 IF A=0 THEN 150 



109 REM - GflLCULflTE NUMBER OF COMPLETE CIRCLES 



150 END 
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Coordinate Conversion 



This program converts the coordinates of a point given in Cartesian coordinates to polar coordinates, and 
vice versa. 

The formulas for the conversions are: 

r = y + ^2 

A = arctangent ( ylx ) 



X — r • cosine ( A ) 



y = r • sine { A ) 



where: x = abscissa) _ 

y = ordinate/ Cartesian coordinates 

r = magnitude of ray \ 

A = angle (in degrees)/ Polar coordinates 

Examples: 

Find Cartesian coordinates of the point {2,30.5") given in polar coordinates. 

If a point is at (7,18) in the Cartesian system, what are its coordinates in the polar system? 

A point is located at (0,-46.8). What is its location in polar coordinates? 



COORDINATE CONVERSION 



<: l=CflRTESIflN TO POLAR .> 
C-l=POLflR TO CARTES I AN .> 
< 0=END PROGRAM > 

WHICH DIRECTION? -1 

R.A? 2.30.5 

H = 1.72 .. V = 1.02 



WHICH DIRECTION? 1 
.X.. V? ?.. 18 

R = 13.31 .. A = 68.75 

WHICH DIRECTION? 1 

X.V? 0..-46.8 

R = 46.8 . A = 270 

WHICH DIRECTION? @ 
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10 PRINT "XOORDINflTE CONVERSION" 
20 PRINT 

30 PRINT " < l=CflRTESIRN TO POLAR)" 
40 PRINT " <-l=POLflR TO CARTES I AN >" 
50 PRINT " < 0=ENIi PROGRAM)" 
55 PRINT 

60 PRINT "WHICH H I RECT I ON " .: 
70 INPUT n 

79 REM - END PROGRAM? 

80 IF li=0 THEN 380 

89 REM - DIRECT PROGRAM TO PERFORM PROPER CONVERSION 

90 IF rt=-l THEN 320 

98 REM - CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES 

f^EM - ENTER CARTESIAN COORDINATES <! ABSCISSA. ORDINATE) 
100 PRINT "K..V".; 
110 INPUT K..V 

119 REM - POINT ON V-AXIS? 

120 IF K=0 THEN 170 

129 REM - POINT ON X-AXIS? 

130 IF V=0 THEN 260 

139 REM - COMPUTE POLAR COORDINATES. ROUND OFF.. PRINT 

1 40 PR I NT " R = " ; I NT < SGN < K ) *SQR < X t2+ V t2 ) •* 1 00+ . 5 ) / 1 OO ; " " 
150 PRINT " A =".;INT<ATN<V/X)*180/iT*100+.5)/100 

160 GOTO 55 

169 REM - POINT IS ON V-AXIS; AT ORIGIN? 

170 IF V=0 THEN 240 

180 PRINT "R =".: ABS CV ).:".. ".: 

Ift9 REM - IS POINT ABOVE OR BELOW ORIGIN? 

190 IF V<0 THEN 220 

200 PRINT " ft - 90" 

210 GOTO 55 

220 PRINT " A = 270" 

230 GOTO 55 

239 REM - POINT IS AT ORIGIN 

240 PRINT "R = 0.. A = 0" 
250 GOTO 55 

259 REM - POINT IS ON K-AKIS 

260 PR I NT " R = " .: ABS C X ) ; " .. " ; 

269 REM - IS POINT TO LEFT OR RIGHT OF ORIGIN? 

270 IF K<0 THEN 30© 
280 PRINT " A = 0" 
290 GOTO 55 

300 PRINT " A = 180" 
310 GOTO 55 

318 REM - CONVERT FROM POLAR COORDINATES TO CARTESIAN COORDINATE 

319 REM - ENTER POLAR COORDINATES (MAGNITUDE OF RAV.. ANGLE) 

320 PRINT "R..A".: 
330 INPUT R..A 

339 REM - CONVERT FROM DEGREES TO RADIANS 

340 M= < A- 1 NT < A/360 ) *360 ) *ff/ 1 80 

349 REM - CALCULATE CARTESIAN COORDINATES.. ROUND OFF.. PRINT 

350 PRINT "X =".: 

355 PR I NT INT < R.*COS ( M ) * 1 80+ . 5 ) / 1 00 .: 

360 PRINT ".. V =".: 

365 PR I NT I NT < R*S I N < M ) * 1 00+ . 5 ) 1 08 

369 REM - RESTART PROGRAM 

370 GOTO 55 
380 END 



Coordinate Plot 



This program plots points on a set of coordinate axes. You must provide the x - and / -coordinates of all 
points to be plotted, the endpoints of the x - and / -axes, and the increment between points on each axis. 

The graph is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. In addition, 
the axes do not necessarily intersect at zero. A reminder as to where the axes intersect is printed at the top of 
each graph. 

The limit on the number of points plotted may be increased or decreased by altering statement 30 in the 
following manner: 

30 DIM X(/V+ /) ,Y(/V+ /) 
where N = the maximum number of points you wish to plot. 

The length of the y-axis Is limited by the width of the output device. This program tests for a length not to exceed 
the width of the PET screen, 40 spaces. The test at statement 90 may be altered to accommodate the 80-column 
CBM screen. If using a CBM with an 80-column screen you might enter: 

90 IF Be<= 78 THEN ISO 

Example: 

The heights of twelve men and their sons are recorded in the table below. Plot the data points. 



father 


65 


63 


67 


64 


68 


62 


70 


66 


68 


67 


69 


71 


son 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 


70 



height in inches 



COORDINftTE PLOT 

X-flXIS: LOWER ENDPOINT. 

UPPER ENBPOINT.. INCREMENT? 22.. 3.3. .5 

V-flXLS: LEFT ENBPOINT. 

RIGHT ENBPOINT. INCREMENT? 22. 33 ...5 

NUMBER OF POINTS? 12 

COORBINfiTES OF POINT 1 ? 2-5.28 

POINT 2 ? 23.26 
POINT 3 ? 27.28 
POINT 4 ? 24.2.5 
POINT 5 ? 28.29 
POINT 6 7 22.26 
POINT 7 ? 30.28 
POINT 8 ? 26.25 
POINT 9 ? 28.31 
POINT 10 ? 27.27 
POINT 11 ? 29.28 
POINT 12 ? 31.30 
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INTERSECTION OF RKES AT ( 22 .. 22 > 



* 
* 

* 

* 
* 

* 

* 

* 
* 
* 

* 
* 



+ 



+ + 

+ 
+ 



10 PRINT "XOORDINflTE PLOT" 
20 PRINT 

2ft REM - DIMENSION OF K<> RND V<> SHOULD EE LIMITED TO (N+l>; 

29 REM - I'JHERE N=THE NUMBER OF POINTS BEING PLOTTED.. MFi:«:iMUM LIMIT 93 

30 DIM X(:i00>..Va00> 

39 REM - INPUT INFORMATION TO SET UP fiXES 

40 PRINT "K-flKIS: LOWER ENDPOINT.. " 
45 PRINT "UPPER ENDPOINT.. INCREMENT".: 
50 INPUT fll.ft2.fl3 

60 PRINT "V-flXIS- LEFT ENDPOINT.." 
65 PRINT "RIGHT ENDPOINT.. INCREMENT"; 
70 INPUT E1..B2..E3 
80 ^E'^~B1 .^/B"^ 

98 -^v-flXIS^TOO LONG FOR OUTPUT DEVICE? IF VES.. CHANGE ENDPOINTS 

89 REM - OR INCREASE INCREMENT 

90 IF B2<=40 THEN 120 

100 PRINT "V-RANGE TOO LARGE" 
110 GOTO 60 

120 PRINT "NUMBER OF POINTS".: 
1:30 INPUT N 

139 REM - NO POINTS TO PLOT? END PROGRAM 

140 IF N=0 THEN 1070 

149 REM - TOO MANV POINTS? IF VES. REENTER NUMBER OF POINTS 

150 IF N<=99 THEN 1S0 

160 PRINT "TOO MANV POINTS" 
170 GOTO 120 

179 REM - LOOP TO INPUT X..V COORDINATES FOR EACH POINT 

180 FOR 1=1 TO N 
190 IF I>1 THEN 220 
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200 PRINT "COORDINATES OF POINT 
210 GOTO 230 

220 PRINT " POINT ".;I; 

230 INPUT X(I>.. V<I> 

239 REM - ROUND OFF EACH K..V TO NEAREST INCREMENT ON AKIS 

240 >«!>= I NT < < K < I > - A 1 > /' A3+ . 5 > 
250 V < I > = I NT < < V (. I > -B 1 > .•••'B3+ . 5 > 
260 NEKT I 

269 REM - CALCULATE ADDITIONAL K AND V COORDINATE 

270 V < N+ 1 > = I NT C B2+ . 5 > + 1 

280 >«N+1 >=INT( <;A2-A1 >/A3+. 5>+1 
290 PRINT 

299 REM - NOTE WHERE AKES CROSS 

300 PRINT "INTERSECTION OF AKES AT ( " ; 

301 PRINT Al; "..".: Bl.;">" 
310 PRINT 

319 REM - SORT COORDINATES; REORDER X(l> TO X<N:) SMALLEST TH LARfiEST 

320 FOR J=l TO N 
330 FOR 1 = 1 TO N-J 
340 A=xa> 

350 E=V<I> 

360 C=K(I+1> 

370 D=V<I+1> 

380 IF A<C THEN 430 

390 X<I>=C 

400 V<I>=D 

410 J^:<I+1>=A 

420 V<I+1>=B 

430 NEXT I 

440 NEXT J 

449 REM - NEXT POINT TO BE PLOTTED STORED IN T 

450 T=l 

459 REM - SKIP POINTS OUT OF X-POSITIVE RANGE 

460 FOR P=0 TO N-1 

470 IF X(:P+1»=0 THEN Q=p:P=N 
480 NEXT P 
485 P=Q 

489 REM - LOOP TO CALL UP EACH X- INCREMENT FOR LINES OF PRINT 

490 FOR 1=0 TO INT<::<A2-Al>/A3+.5> 
500 T=T+P 

509 REM - COUNT NUMBER OF POINTS TO BE PLOTTED ON EACH LINE IN P 

510 P=0 

519 REM - ALL POINTS PLOTTED? 

520 IF T>N THEN 54© 

529 REM - X- VALUE ON X-LINE? IF VES.. TEST FOR V 

530 IE '^•''<'T'>=I THEN 5'-'fi 

'SSy REM"- ^iRst LMTlF VES. V-AXIS MUST BE PLHTTED 
540 IF 1=0 THEN 570 

549 REM - PLOT X-AXIS 

550 PRINT "*".: 
560 GOTO 1040 
570 S=N+1 

580 GOTO 920 
590 FOR L=T TO N 

599 REM - NEXT POINT PLOTTED ON SAME LINE 

600 IF xa:K"=X(:T> then p=p+i * 

620 NEXT L 
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629 REM - PLOT ONE POINT 

630 IF P=l THEN 736 _ 

638 REM - LOOP TO SORT V-COORDINl=iTES WITH EQUAL X-CUORDINRTEb 

639 REM - REORDER SMALLEST TO LARGEST 

640 FOR J=l TO P 
650 FOR L=l TO P-J 
660 ri=V<T+L-l> 
670 B=V(:T+L> 

680 IFri<=B THEN 710 
690 V<T+L-1>=B 

700 va+L>=D 

710 NEKT L 

720 NEXT J 

730 FOR L=0 TO P-1 

740 Z=V(T+L> 

749 REM - TEST FOR OUT-OF RANGE V-COORDINATE 

IF Z>=0 THEN 770 
760 NEXT L 

76<5 REM - POINT TO BE PLOTTED ON K-AXIt:? 
770 IF 1=0 THEN 910 

779 REM - POINT TO BE PLOTTED ON V-AKIS? 

780 IF Z=0 THEN 800 

789 REM - PLOT X-A>aS 

790 PRINT"*"; 

ff00 IF L=P-1 THEN 870 
810 FOR J=L TO P-1 

REf^ _ 7EST FOR OUT-OF RANGE V-COORDINATE 

820 IF Z>B2 THEN 1040 

829 REM - BYPASS DUPLICATE COORDINATES 

830 IF V<T+.J>=Z THEN 860 

839 REM - PLOT POINT 

840 PRINT TAB<Z>.: " + "; 
850 Z=V<T+J> 

860 NEKT J 

869 REM - TEST FOR OUT-OF RANGE V-COORDINATE 

870 IF Z<0 THEN 1040 
880 IF Z>B2 THEN 1040 

889 REM - PLOT POINT 

890 PRINT TAB<Z >.:"+".: 
900 GOTO 1040 

910 S=T+L 

919 REM - LOOP TO ESTABLISH PRINT FOR FIRST LINE 

920 FOR J=0 TO B2 

929 REM - POINT TO BE PLOTTED? 

930 IF V<:S>OJ THEN lOlO 

939 REM - PLOT POINT 

940 PRINT"+".: 

949 REM - BVPASS DUPLICATE COORDINATES 

950 FOR K'=S TO T+P-1 

960 IF V<K>=V<;S> THEN 99© 

970 S=K 

980 GOTO 1020 

990 NEXT K 

1000 GOTO 1020 

1009 REM - PLOT V-AXIS 

1010 PRINT"*".: 
1020 NEXT J 



1029 REM - LfiBEL V-flXIS 

1030 PRINT"V"; 

1039 REM - ADVANCE OUTPUT DEVICE TO NEXT LINE 

1040 PRINT 
1050 NEXT I 

1059 REM - LABEL X-flXIS 

1060 PRINT"X" 
1070 END 
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Plot of Polar Equation 



This program plots a given function in polar coordinates. There are up to 90 points plotted, one every four 
degrees. (Some points may overlap.) 

The graph is conventional in that the x-axis runs horizontally, the y-axis runs vertically, and they intersect 
at zero. You need only specify the absolute value of the endpoints. 

The increment between each point on the x- and y-axes is adjusted so that a value of one on either axis is 
equidistant from zero. This allows the function to be plotted with minimal distortion. An adjustment of each increment 
is necessary because of different spacing horizontally and vertically on the PET screen. 

It is necessary for you to enter the function to be plotted before you run the program. The function must be 
entered as a function of d. f(d) will be entered and set equal to F at line 130. For example, the function 
f(d) =2«(1-cos(c/))will be entered as follows: 

130 F=E« (1-C0S<D) > 
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Example: 

Plot the equation f{d)=2 '(l-cosl d )). 



130 F=2*a-C0S<D)> 
RUN 



PLOT OF POLAR EQUfiTION 

ABSOLUTE VALUE OF ENDPOINTS? 4 

INCREMENT OF X-AXIS = .2857142R6 
INCREMENT OF V-AXIS = .333333333 

*** PLEASE WAIT A FEW MINUTES 
FOR THE GRAPH TO APPEAR *** 



+ + + + I 

+ + + + + j 

+ + + 

+ i + 

+ I + 

+ I + 

+ I + 

+ ! + + 

+ — — 

+ I + + 

+ I + 

+ 1 + 

+ i + 

+ ! + 

+ + + 

+ + + + + i 

+ + + + I 
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10 PRINT "HF-LOT OF POLAR EQUATION" 
20 PRINT 

2P REM - COORDINATE ARRAVS SET FOR 98 POINTS.: 

29 REM - ONE EXTRA K-COORDINATE IS CALCULATED IN PROURAM 

^0 DIM >=:'::91>.. V(90::' 

39 REM - NUMBER OF POINTS TO BE CALCULATED 
4fi h'=90 

49 pEf.^ _ flESHLUTE VALVUE OF ALL ENDPOINTS ARE EQUAL 

PRINT "ABSOLUTE VALUE OF ENDPOINTS"; 
60 INPUT 2 
70 PRINT 
75 Xl=14 

4§ Jem'- calculate increments of axes according to characters per axis 
a0 print "increment of x-axis =";z/'x1 
90 print "increment of v-axis =".:z/v1 

100 PRINT 

104 PRINT "*** PLEASE WAIT A "; 

lP!f=i PRINT "FEW MINUTES" 

106 PRINT "FOR THE GRAPH TO APPEAR***" 

110 FOR 1=1 TO N 

119 REM - CONVERT DEGREES TO RADIANS 

120 D=. 06981317*1 

129 REM - ENTER FUCTION HERE '::F-"FUNCTI0N" > 

l-'iPi ppiHT "ENTER FUCTION AT LINE 130!" 

2:-;cj PEM - CALCULATE EACH CARTESIAN COORDINATE.. 

|cj9 pEM - ROUND OFF TO NEAREST INCREMENT ON AXIS 

140 X<D = INT<'::<F*C0S<D>/Z+l>*Xl> + ,5> 

150 V<I) = INT<<<-F*SIN<D>/'Z+l>*Vl> + .5> 

1 f^pi j-..|EyT I 

169 REM - SORT COORDINATES; REORDER Va) TO V<N> SMALLEST TO LARGEST 

170 FOR J=l TO N 
180 FOR 1=1 TO N-J 
190 A=X<I> 

200 B=V<I> 

210 IF B<=V<I+1> THEN 268 
220 X(I>=X<I+1> 

230 va>=v<i+i> 

240 X<I + i;:'=A 
250 V<I+1>=B 
260 NEXT I 
270 NEXT J 

279 REM - NEXT POINT TO BE PLOTTED STORED INT 

280 T=l 

289 REM - SKIP POINTS OUT OF V-POSITIVE RANGE 

290 FOR P=0 TO N-1 

300 IF V<P+i::">=0 THEN 320 
310 NEXT P 

319 REM - LOOP TO CALL UP EACH V- INCREMENT FOR LINES OF PRINT 

320 FOR 1=0 TO Vl*2 
330 T=T+P 

339 REM - NUMBER OF POINTS TO BE PLOTTED ON EACH LINE STORED IN P 

340 p=0 

349 REM - ALL POINTS PLOTTED? 

350 IF T>N THEN 370 

359 REM - V- VALUE ON V-LINE? 

360 IF V<T::' = I THEN 420 



369 REM - PRINT K-ftH'IS 

370 IF I=V1 THEN 408 

379 REM - PRINT V-flKaS 

380 PRINT TflE<Kl >.:"!".: 
390 GOTO S60 

400 S=N+1 
410 GOTO 740 
420 FOR L=T TO N 

429 REM - NEXT POINT TO BE PLOTTED ON SAME LINE? 

430 IF V<L»V<T> THEN 458 
440 P=P+1 

458 NEXT L 

460 IF P=l THEN 568 

46S REM - LOOP TO SORT X-COORDINflTES WITH EQUAL V-COOPDINflTE?:; 
469 REM - REORBER SMALLEST TO LARGEST 

478 FOR J=l TO P 
488 FOR L=l TO P-J 
498 C:=X<T+L-1> 
580 H=Xa+L> 
518 IF C:<=A THEN 548 
520 K<T+L-1>=A 
538 Xa+L>=C 
548 NEXT L 

558 NEXT J 

559 REM - PRINT X-AXIS? 

560 IF I=V1 THEN 730 
570 L=-l 

580 S=0 

590 FOR K=0 TO P-1 

599 REM - MORE THAN ONE POINT TO BE PLOTTED AT SAME POINT ON GRAPHS 

600 IF X(T+K>=L THEN 698 - • rn. 

610 l=x<t+k:) 

619 REM - PLOT POINT TO THE LEFT OF V-AXIS^ 

620 IF L=X1 THEN 668 
638 IF LCXl THEN 678 

648 IF S=l THEN 678 

649 REM - PRINT V-AXIS 

650 PRINT TAECXl >.:"!"; 
660 S=l 

669 REM - POINT OUTSIDE OF POSITIVE X-RANGE^ 

670 IF L>X1*2 THEN 368 

679 REM - PLOT POINT 

680 PRINT TAE<L>.; " + "; 
690 NEXT K 

700 IF S=l THEN 860 

789 REM - PRINT V-AXIS 
710 PRINT TAB<:X1>;"|".; 
720 GOTO 860 

730 S=T 

739 REM - LOOP TO PRINT LINE OF X-AXIS 

740 FOR J=0 TO Xl*2 
750 IF X<S>OJ THEN 838 

759 REM - PLOT POINT ON X-AXIS 

760 PRINT "+".; 

770 FOR K=S TO T+P-1 

780 IF X(:K>=X(S> THEN 818 

790 S=K 
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fQB GOTO S40 

829 REM - PRINT K-flXIS 

830 PRINT 
840 NEKT J 

849 REM - LABEL K-flKIS 

850 PRINT "K"; 
860 PRINT 

870 NEKT I 

879 REM - LABEL V-AXIS 

880 PRINT TAE<K1>.:"V" 
890 END 



Plot of Functions 



This program calculates and plots up to nine functions. All functions must be functions of x , and all will be 
plotted on the same set of axes. 

To set up the axes you must input the endpoints of the x - and / -axes. You must also state the increment 
by which the points on each axis are to be increased. 

The graph is unconventional in that its x -axis runs vertically while its / -axis runs horizontally. To read the 
graph you must either turn your output 90° counterclockwise or mentally adjust to the change in convention. 

The graph is also unconventional in that its axes do not necessarily cross at zero. A reminder as to where the 
axes cross is printed at the top of each graph. 

You must enter the functions to be plotted as program statements prior to running the program. Statement 
numbers 221 to 229 are reserved for this purpose. Functions must be entered in the number sequence Y(1), 
Y(2),. . . Y(9). For example, if you wish to plot the functions f{x) = 2x +1 and ^( x ) = ^JY, you must type: 

ESi Y(1)=S»X+1 
eS2 Y(E)=SQR(X) 

The length of the y-axis is limited by the width of your output device. This program tests for a length not to exceed 
the width of the PET screen, 40 spaces. The test at statement 140 may be altered to accommodate the 80-column CBM 
screen. For example, an 80-column CBM screen will accommodate a graph 78 spaces wide by changing statement 140 
to: 

140 IF YS<=78 THEN 170 

Example: 

Rot the equations f(x)= cos( x ) and f ( x ) = sin( x ). 

221 V<i.>=C:OS<J<> 

222 V<2>=SIN<X> 
RUN 



PLOT OF FUNCTIONS 

NUMBER OF FUNCTIONS? 2 

X-mUS- LOWER ENDPOINT. 

UPPER ENDPO I NT.. INCREMENT? -5.. 5.. .2-5 

V-flXIS: LEFT ENDPO I NT.. 

RIGHT ENDPO I NT.. INCREMENT? -2.. 2.. .25 
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X AXIS CROSSES V-fiXIS fiT V=-2 
V fiXlS CROSSES K-flXIS FIT K=-5 



I I II I I I I i I I 



2 1111 



V 



1 



•"It 

c 

o 



1 2 



2 



1 2 

1 



10 PRINT "□PLOT OF FUNCTIONS" 
20 PRINT 

29 REM - NUriBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED TO 9 

30 DIM V>::9>..fl$ai> 
40 FOR 1=1 TO 11 

49 REM - GET VALUES FOR fl$-flRRflV FROM DATA TABLE AT STATEMENTS 4?fi-471 

50 READ A$(I> 
60 NEXT I 

69 REM - STATEMENTS 79 TO 120 REQUEST USER INPUT 

70 PRINT "NUMBER OF FUNCTIONS"; 
80 INPUT N 

90 PRINT ">=:-AXIS: LOWER ENDPOINT.. " 
95 PRINT "UPPER ENDPOINT.. INCREMENT" .: 
100 INPUT X1..X2..X3 
110 PRINT "V-AXIS- LEFT ENDPOINT.." 
115 PRINT "RIGHT ENDPOINT.. INCREMENT".; 
120 INPUT V1/t'2A'3 

129 REM - CALCULATE NUMBER OF SPACES ON V-AXIS 

130 V2=<V2-V1.\''V3 

138 REM - TEST FOR A V-AXIS TOO LONG FOR OUTPUT DEVICE. 

139 REM - IF VES; THEN LESSEN RANGE OR INCREASE INCREMENT 

140 IF V2<=36 THEN 17© 

150 PRINT "V-RANGE TOO LARGE" 
160 GOTO 110 
170 PRINT 
180 PRINT 

189 REM - MAKE NOTE OF WHERE AXES CROSS 

190 PRINT "X-AXIS CROSSES V-AXIS ": 
195 PRINT "AT V=".:V1 

200 PRINT "V AXIS CROSSES X-AXIS " ; 
210 PRINT "AT X= ".: XI : PRINT 

219 REM - SET UP LOOP TO READ VALUE AT EACH X- INCREMENT 

220 FOR X=X1 TO X2 STEP X3 

221 REM - FUNCTIONS VU) TO V<9> SHOULD BE ENTERED AT LINES 221 TO 229 
230 FOR 1=1 TO N 

239 REM - ESTABLISH THE ROUNDED VALUE OF V FOR EACH X- INCREMENT VALUE 

240 V<I>= INT<<V(I>-Vl>/V3+.5> 
250 NEXT I 

259 REM - LOOP TO READ VALUE OF EACH V- INCREMENT 

260 FOR 1=0 TO V2 

269 REM - S COUNTS THE NUMBER OF VALUES AT EACH V- INCREMENT FOR EAHH X 

270 S=0 

2.S0 FOR J=l TO N 

S!n ?P "t^'^-?I ^'^S' STORE FUNCTION NUMBER IN T 

290 IF V'..J.^OI THEN 3Z@ 

300 S=S+1 

310 T=J 

320 NEXT J 

327 REM - TEST FOR NUMBER OF POINTS TO PLOT ON EAHH .'=;PriT; 

??g - IF PRINT " + ■• (FIRST LINE ONLV).. IF 1 PR I NT "FUNCTION NUMBER. 

329 REM - IF 2 OR MORE PRINT "*" 

330 IF S>0 THEN 360 

340 PRINT ft* (SGN< 1.^+10.').; 

350 GOTO 400 

360 IF S>1 THEN 390 

370 PRINT A* <T>.: 

380 GOTO 400 
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390 PRINT 
400 NEXT I 

4PIQ pEf^ _ LABEL AXES AT THE LAST SPACE ON EACH AKES 
410 IF X>X1 THEN 430 
420 PRINT "V".: 

429 REM - ADVANCE PRINTER TO NE>^T LINE 
4:^0 PRINT 

439 REM - PRINT SPACE INSTEAD OF AFTER FIRST LINE OF PRINT <V-AKIS> 

440 A$<11>=" " 
450 NEXT X 
460 PRINT "K" 

470 DATA " 1 " . " 2 " .. " 3 " .• " 4 " .• " 5 " .■ " €> " .• " 7 " 

471 DATA "8".. "9"!. "I " 
480 END 
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Linear Interpolation 



This program calculates the y -coordinates of points on a line given their x -coordinates. It is necessary to 
know coordinates of two points on the same line. 

The point is interpolated using the following formula: 

(/2- y ^)•(x-x ^) 

y = y^ + 



. Examples: 



(X 2 - X ,) 

where: x „ y , = coordinates of first point on the line 

X 2. / 2 = coordinates of second point on the line 
X = abscissa of point to be interpolated 
/ = ordinate of the point on the line with x 



A conversion table lists 60°F as 15.56°C and 90°F as 32.22°C. Calculate degrees Celsius of 73°F and SS-B^F. 
A new sales tax of 17.5% has been imposed on us. What will be the tax on a sofa which sells for $455.68? 



LINEAR INTERPOLflllON 

K..V OF FIRST POINT? 68.. 15.56 
X..V OF SECOND POINT? 90 ..32. 22 
INTERPOLATE :X = ? 73 

V = 22.779 

MORE POINTS <1=VES..0=NO.^? 1 

INTERPOLATE -X = ? 85.6 

V = 29.777 

MORE POINTS <:i=VES..0=NO>? © 

NEW LINE <1=VES..0=NO>? 1 

OF FIRST POINT? 0.0 
:«;..V OF SECOND POINT? 100.17.5 
INTERPOL ATE = ? 455.68 

V = 79.744 

MORE POINTS <1=VES.0=NO>? 
NEW LINE <l=VES..0=NO:r? 
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10 PRINT "□LINEAR INTERPOLATION" 
20 PRINT 

2'^ REM - ENTER K- flND V-COORDINflTES OF TWO POINTS ON THE LINE 
:-:0 PRINT "K/t' OF FIRST POINT"; 

40 INPUT ;>a..vi 

50 PRINT "K..V OF SECOND POINT"; 
60 INPUT :=-=:2..V2 

f.9 REM - ENTER :>^-C:OORIiINflTE OF POINT TO EE INTERPOLflTED 
70 PRINT "INTERPOLflTE:^ = ".: 
80 INPUT K 

■39 REM - COMPUTE CORRESPONDING V-COORDINflTE 
90 V=V1 + (V2-V1>/<X2-K1>*':;K-K1> 
39 REM - ROUND OFF.. PRINT 

100 PRINT TFiE'::i2;>; "V = "; 

1 1 PR INT I NT ■:: V* 1 900+ . 5 > / 1 000 
110 PRINT 

120 PRINT "MORE POINTS ( 1=VES.. 0=NO> " ; 
130 INPUT 2 
140 PRINT 

150 IF Z=l THEN 70 

159 REM - INTERPOLRTE ON ANOTHER LINE? 

160 PRINT "NEW LINE < 1=VES.. 0=NO> " ; 
170 INPUT Z 

180 IF Z=l THEN 20 
190 END 
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Curvilinear Interpolation 



This program computes / -coordinates of points on a curve given their x -coordinates. You must input 
coordinates of known points on the curve, no two having the same abscissa. 

The computations are performed using the Lagrange method of interpolation. 

The number of known points on the curve which may be entered in the program is limited to 50. You may 
increase or decrease this limit by altering statement 30 according to the following scheme: 

30 DIM X(P) , V<P) 

where P = the number of known points on a curve. 

Examples: 

Consider the curve y = x ^ - 3x + 3. You know that the points (-3,-15), (-2,1), (-1,5), (0,3), (1,1), (2,5), and 
(3,21) are on the curve. What is the value of / when x = -1.65 and 0.2? 

Given the following points from a sine curve, what is the sine of -2.47 and the sine of 1.5? 

(-5,. 958) (0,0) 
(-4,.757) (1,.841) 
(-3,-.141) (2,.909) 
(-2,-.909) (3,. 141) 
(-1,-.841) (4,-.757) 
(5,-.959) 



CURVILINEAR INTERPOLftTION 

NUMBER OF KNOWN POINTS? ? 
X^W OF POINT 1 ? -3.. -15 

OF POINT 2 ? -2.. 1 

OF POINT 3 ? -1..5 
X.V OF POINT 4 ? 0.3 
X.V OF POINT 5 ? 1.1 
X..V OF POINT 6 ? 2.5 
X..V OF POINT ? ? 3.21 

INTERPOLATE: X= ? -1.65 

V= 3. 457875 

MORE POINTS HERE (1=VES. 0=NO.')? 1 

INTERPOLATE- X= ? .2 

V= 2. 408 

MORE POINTS HERE <1=VES.0=NO>? 1 
ANOTHER CURVE <1=VES.0=NO>? 1 
NUMBER OF KNOWN POINTS? 11 
X.V OF POINT 1 ? -5.. 958 
X.V OF POINT 2 ? -4.. 757 
.X.V OF POINT 3 ? -3.-. 141 
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K.V OF POINT 4 ? -2. -.909 

K..V OF POINT 5 ? -1.-.841 

X..V OF POINT 6 ? 0.0 

K..'r' OF POINT ? ? 1.. .841 

X..V OF POINT 8 ? 2.. 909 

K..V OF POINT 9 ? 3.. .141 

X.V OF POINT 10 ? 4. -.757 

:=<..V OF POINT 11 ? 5.. -.959 

INTERPOLATE: x= ? -2.47 

V= -.621839596 

MORE POINTS HERE <1=VES.. 0=NO>? 1 

INTERPOLATE- X= ? 1.5 

V= .9971638 

MORE POINTS HERE <1=VES.0=NO>? 
ANOTHER CURVE <1=VES..0=NO>? 



10 PRINT ".XURVILINEAR INTERPOLATION" 
20 PRINT 

30 HIM K(50>..V<50> 

40 PRINT "NUMBER OF KNOWN POINTS"; 

50 INPUT P 

60 FOR 1=1 TO P 

70 PRINT ":K..V of POINT"; I.: 

80 INPUT K(I>..V<I> 

90 ne:kt I 

100 PRINT 

110 PRINT "INTERPOLATE: K= "; 
120 INPUT A 
130 B=0 

140 FOR J=l TO P 
150 T=l 

160 FOR 1=1 TO P 

170 IF I=J THEN 190 

1 80 T=T.* < A-X <: I > > / ( H' ( J > -K a > > 

190 NEXT I 

200 B=B+T*V<J> 

210 NEXT J 

220 PRINT " V= ";B 

230 PRINT 

240 PRINT "MORE POINTS HERE?"; 
245 PRINT "<1=VES..0=NO>"; 
250 INPUT C 
260 IF C=l THEN 100 

270 PRINT "ANOTHER CURVE? <1=VES.0=NO.V'; 

280 INPUT C 

290 IF C=l THEN 40 

300 ENB 



Integration: Simpson's Rule 



This program approximates the definite integral of a function. The integral is computed using Simpson's 

rule. 

The method the program takes is optional: you must supply either the function of the curve or values of the 
function at specified intervals. For both methods you must enter the limits of integration and the increment bet- 
ween points within the limits. 

If the function to be integrated is known, it must be entered before running the program. The function will 
be defined at line 50. For example, the function f(x) = will be entered as follows: 



Find the definite integral of the function f(x) =x^ between and 2 with increments of .2 and .1. 
What is the integral of a curve between -1 and 1 if the points known are as follows: 



50 IiEFFNC:<K>=>=:t3 
RUN 

INTEGRATION: SIMPSON-'S RULE 

FORMULA •• < 1 =KNOWN . 0=UNKNOWN > ? 1 
THE LOWER.. UPPER LIMITS? 0..2 
INCREMENT OF X? .2 
INTEGRAL IS 4 



INTEGRATION-- SIMPSON'S RULE 

FORMULA : (. 1 =KNOWN . 0=UNKNOWN > ? 1 
THE LOWER. UPPER LIMITS? 0.-2 
INCREMENT OF .X? .1 
INTEGRAL IS 4 



50 DEFFNC<X>=Xt3 



Examples: 



(-1,.54) 

{-.75,.73) 

(-.5,.878) 

(-.25,.969) 

(0,1) 



(.25,.969) 
(.5,.878) 
(.75,.73) 
(1,.54) 



RUN 



RUN 



INTEGRATION: 



SIMPSON -S RULE 



FORMULA •• < 1 =KNOWN .. 0=UNKNOWN > ? 
THE LOWER.. UPPER LIMITS? -1.. 1 
INCREMENT OF K7 .25 
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10 PRINT '^INTEGRATION: SIMPSON-'S RULE" 
20 PRINT 

30 PR I NT " FORMULA : ( 1 =KNOWN .. 0=UNKNOWN > " .: 
40 INPUT S 

49 REM - IF FUNCTION IS KNOWN ENTER AT LINE 50 <DEFFNC<X.^ = "FUNCTION" > 

50 riEFFNC<x>=:»: 

60 PRINT "THE LOWER.. UPPER LIMITS".: 
70 INPUT A..B 

80 PRINT "INCREMENT OF X".: 

90 INPUT :ki 

98 REM - INCREMENT MUST IHVIDE INTERVAL INTO EQUAL SUB INTERVALS; 

99 REM - IF NOT.. CHANGE INCREMENT 

100 T=<B-A>/X1 :U=INT<:T) :IF TOU THEN .30 
110 IF S=l THEN 150 

119 REM - FORMULA NOT KNOWN.: Eh-^TER FUNCTION VALUE AT INTEGRATION LIMITS 

120 PRINT "FIRST.. LAST VALUE OF F<.%y"i 
130 INPUT VI ..V2 

140 GOTO 170 

149 REM - FORMULA KNOWN.; CLACULATE FOO AT INTEGRATION LIMITS 

150 V1=FNC<A> 
160 V2=FNC<B> 
170 C=0 

180 B=0 

189 REM - LOOP FOR EACH INTERVAL 

190 FOR 1=1 TO <:E-A>/K1-.5 
200 IF S=l THEN 240 

209 REM - ENTER KNOWN FUNCTION VALUE AT EACH INTERVAL 

210 PRINT "VALUE OF F<X> AT: " 

2 1 1 PR I NT TAB < 1 .: " I NTER V AL " .: I .: 

212 PRINT "<J<=".:A+I*K1.: ">".; 
220 INPUT V 

230 GOTO 250 

239 REM - CALCULATE FO-=:> AT EACH SUB INTERVAL 

240 V=FNC<A+I*X1> 

249 REM - INTERVAL EVEN OR ODD? 

250 T2= I /2 : R= I NT < T2 > 
■^'"^S IF T'~'=R THEN '•'Sffi 

259 REM - SUM ALL^ODD- INTERVAL FUNCTION VALUES 

260 C=C+V 
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279 rem' -''sum fiLL EVEN- INTERVAL FUNCTION VALUES 

280 D=D+V 
290 NEXT I 

299 REM - COMPUTE INTEGRAL; PRINT 

300 PRINT "INTEGRAL IS"; 

310 PRINT X1/3*(V1+<C*4>+D*2+V2> 
320 END 
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Integration: Trapezoidal Rule 



This program approximates the definite integral of a function. The integral is computed using the trapezoi- 
dal rule. You must provide the limits of integration and the number of intervals within the limits. 

The function to be integrated must be entered before running the program. The function of x will be defined 
at line 30. For example, the function f(x)=x^ will be entered as follows: 

30 DEFFNC(X)=Xt3 

Examples: 

Find the definite integral of the function f(x)=x^ between and 2 with 10 and 20 intervals. 

Find the definite integral of the function f { x ) = x between 1 and 2 and 2 and 3 using 10 subintervals. 



30 DEFFNC<X.^=><t3 
RUN 



INTEGRATION- TRflPEZOIDflL RULE 

< ENTER 8..0 TO END PROGRAM) 
INTEGRATION LIMITS < LOWER.. UPPER)? 9.2 
NUMBER OF INTERVALS? 16 
INTEGRAL = 4.04008001 

INTEGRATION LIMITS < LOWER. UPPER.)? 0.2 
NUMBER OF INTERVALS? 20 
INTEGRAL = 4.01008001 

INTEGRATION LIMITS aOWER.. UPPER)? 0..0 



30 DEFFNC<K)=1/X12 
RUN 



INTEGRATION: TRAPEZOIDAL RULE 

(ENTER 0..0 TO END PROGRAM) 
INTEGRATION LIMITS (LOWER.. UPPER)? 1.2 
NUMBER OF INTERVALS? 10 
INTEGRAL = .501455127 

INTEGRATION LIMITS (LOWER. UPPER)? 2.3 
NUMBER OF INTERVALS? 18 
INTEGRAL = .177219889 

INTEGRATION LIMITS (LOWER. UPPER)? 8.8 
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10 PRINT MINTEGRfiTION: TRfiPEZOIDflL RULE" 
20 PRINT 

29 REM - ENTER FUNCTION (DEFFNC<X>= "FUNCTION") 

30 PRINT "! ENTER FUNCTION RT LINE 30!!" 
40 PRINT "< ENTER 0..0 TO END PROGRAM)" 
50 PRINT "LOWER. UPPER LIMITS"; 

60 INPUT fl..B 

69 REM - END PROGRAM? 

70 IF A=B THEN 190 

80 PRINT "NUMBER OF INTERVALS"; 
90 INPUT N 

100 1=0 

109 REM - D IS THE SIZE OF EACH INTERVAL 

110 D=<B-A)/N 

119 REM - ADD UP THE AREA OF EACH TRAPEZOID 

120 FOR J=A TO B+D STEP D 
130 I=I+FNC<J) 

140 NEXT J 

149 REM - COMPUTE INTEGRAL.. PRINT 

1 50 I = < I - < FNC < A ) +FNC < B ) ) /2 ) *D 
160 PRINT "INTEGRAL =";I 

170 PRINT 

179 REM - RESTART PROGRAM 

180 GOTO 50 
190 END 
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Integration: Gaussian Quadrature 



This program approximates the definite integral of a function. You must provide the limits of integration and 
the number of intervals within the limits. 

The interval of integration is divided into equal subintervals. The definite integral is computed over each su- 
binterval using Gauss' formula. The integrals of the subintervals are summed to give the definite integral of the 
full interval. 

You must enter the function to be integrated before running the program. The function of x will be defined 
at line 30. For example, the function fix) =x^ will be entered as follows: 

30 DEFFNC<X)=Xt3 



Examples: 

Find the definite integral of the function f(x)=x^ between and 2 with 10 and 20 subintervals. 
Rnd the definite integral of the function f{x)=x between 1 and 2 and 3 using 10 subintervals. 



30 IIEFFNC<:X>=X13 
RUN 

INTEGRfiTION: GflUSSIflN QUflDRflTURE 

LOWER.. UPPER LIMITS? 8.2 
NUMBER OF INTERVALS? 18 
INTEGRAL = 4.00000064 

CHANGE DATA AND RECOMPUTE? 

< 0=NO . 1 =L I M I TS . 2= I NTERV ALS > ? 2 
NUMBER OF INTERVALS? 20 
INTEGRAL = 4.00000004 

CHANGE DATA AND RECOMPUTE? 

< 0=NO .. 1 -L I M I TS . 2= I NTERVALS > ? 



30 DEFFNCc:X>=l/Xt2 
RUN 

INTEGRATION: GAUSSIAN QUADRATURE 

LOWER.. UPPER LIMITS? 1.2 
NUMBER OF INTERVALS? 18 
INTEGRAL = .500000002 

CHANGE DATA AND RECOMPUTE? 
< 0=NO .. 1 =L I M I TS . 2= I NTERVALS > ? 1 
LOWER.. UPPER LIMITS? 2.3 
INTEGRAL = .166666668 
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CHANGE DflTfl flNB RECOMPUTE? 

< 0=NO . 1 =L I M I TS . 2= I NTERVflLS > ? © 



10 PRINT MINTEGRflTION: GflUSSIfiN QUflDRflTURE" 
20 PRINT 

29 REM - ENTER FUNCTION <riEFFNC<:X)=" FUNCTION"!) 

30 PRINT "'ENTER FUNCTION AT LINE 3©!!" 

39 REM - flBSCISSflS RND WEIGHT FACTORS FOR 20-POINT GURSSIAN INTEGRATION 

40 DATA . 076526521 .. . 15275339. . 22778585 
45 DATA .14917299.. .37370609.. 142096 11 
50 DATA .510867.. 131 68864.. 63605368 

55 DATA .11819453.. 74633191.. 10193012 

60 DATA .839 11 697.. 083276742. .91223443 

65 DATA .062672048.. 96397 193. .04060143 

70 DATA .993 1286.. 01 76 14007 

80 PRINT "LOWER. UPPER LIMITS"; 

90 INPUT X'.V 

100 PRINT "NUMBER OF INTERVALS"; 
110 INPUT N 
120 S=<V-X>/N/2 
130 T=X+S 
140 R=0 

149 REM - COMPUTE INTEGRAL FOR EACH SUB INTERVAL 

150 FOR 1=1 TO N 

160 P=0 

169 REM - COMPUTE SUMMATION FACTOR FOR EACH SUB INTERVAL 

170 FOR J=l TO 10 
180 READ A.B 

1 90 P=P+B* < FNC < S*A+T > +FNC < T-S* A > > 

200 NEXT J 

210 RESTORE 

220 R=R+P*S 

230 T=T+2*S 

240 NEXT I 

250 PRINT "INTEGRAL =";R 
260 PRINT 

270 PRINT "CHANGE DATA AND RECOMPUTE?" 

280 PR I NT "< 0=NO . 1 =L I M I TS . 2= I NTERVALS > " ; 

290 INPUT S 

300 IF S=l THEN 80 

310 IF S=2 THEN lOO 

320 END 



92 



derivative 



This program calculates the derivative of a given function at a given point. 

You must enter the function being evaluated before you run the program. The function will be entered in a 
definition statement at line 30. For example, to evaluate the equation f[x)=x^ + cos ( x ) you would enter the 
following: 



30 DEFFNC(X)=XtE+CDS<X) 



Example: 

Calculate the derivative of the equation + cos ( x ) = when x = -1, x = 0, and x = 1. 



30 riEFFHC < X > =X •T2+C:0S i K > 
RUN 

DERIVFITIVE 



< ENTER X=99999 TO END) 
DERIVATIVE AT X=? -1 

I S-1. 15852881 
BERIVfiTIVE fiJ X=? 

IS 2. 430751 92E-07 
DERIVATIVE AT ><-? 1 

IS 1.15852833 
DERIVATIVE AT X=? 99999 



10 PRINT "^DERIVATIVE" 
20 PRINT 

29 REM - ENTER FUNCTION <DEFFNC:<X>="FUNCTION" > 

30 PRINT "! ENTER FUNCTION AT LINE 30!" 
40 PRINT "< ENTER X=99399 TO END>" 

50 PRINT "DERIVATIVE AT X=".; 
60 INPUT Kl 

69 REM - TEST FOR END OF PROGRAM 

70 IF Xl=99999 THEN 160 
80 D=0 

89 REM - CALCULATE DIFFERENCE QUOTIENTS FOR POINTS APPROACHING X 

90 FOR N=l TO 10 
100 D1=D 

110 X=K1 + .5W 
115 2=FNCCX>-FNC«:X1> 
120 li=Z/<X-Xl? 
130 NEXT N 

139 REM - APPROXIMATE DERIVATIVE OF FUNCTION AT X. PRINT 

140 PRINT " IS";2*D-D1 

149 REM - RESTART PROGRAM 

150 GOTO 50 
160 END 
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Roots of Quadratic Equations 



This program calculates the roots of a quadratic equation. The equation must be in the following form: 

ax^ + bx + c = 
where a,b,c are real coefficients. 
The formula used to calculate the roots is: 

- b±\/b ^-A'a'C 

root = 

2-a 

Example: 

Compute the roots of the following equations: 

2x2 + x-1 =0 
X 2 + 4x + 6 = 



ROOTS OF QUFfDRflTIC EQUfiTIONS 

COEFF I C I ENTS fi .. B .. C? 2 .. 1 .. - 1 
ROOTS ':REflL>:-l .. .5 

MORE BfiThi <1=VES..0=NO;>? 1 

COEFF I C I ENTS ft .. B .. C? 1 .. 4 .. 6 

ROOTS <C:OMPLEK> ••-2 +0R- 1.41421356 I 

MORE BflTfl <1=VES..0=NO>? O 



10 PRINT "HROOTS OF QUflBRflTIC EQUfiTIONS" 
20 PRINT 

29 REM - ENTER COEFFICIENTS fl..B..C OF fl*Xt2 + E*K + C 

30 PRINT "COEFFICIENTS fl..B.C".; 
40 INPUT fl..B..C 

50 S=Bt2-4*fi.*C 
60 R=SQR < flBS < S '? > 

69 REM - COMPLEX ROOTS? 

70 IF SCO THEN 100 

79 REM - CflLCULflTE ROOTS.. LABEL.. PRINT 

80 PRINT "ROOTS CREflL) : " .: <-B-R>/<:2*fl> .; 
85 PR INT " .. " .; < -B+R > / <: 2*fl > 

90 GOTO 110 

1 00 PR I NT " ROOTS < COMPLE:^^ > : " .: -E/ ■:; 2*fl > ; 
1 05 PR I NT " +0R- " .; R/ < 2*fl > .: " I " 
110 PRINT 

119 REM - RESTART OR ENB PROGRAM? 
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120 PRINT "MORE DflTfl <1=VES..0=NO>" 

130 INPUT X 

140 IF K=l THEN 20 

150 END 



Real Roots of Polynomials: Newton 



This program calculates real roots of a polynomial with real coefficients. You must give an estimate of each 

root. 

The calculations are performed using Newton's method for approximating roots of equations. The value of 
the error and derivative are included for each root calculated. 

The equation you enter is presently limited to a degree of 10. You may enter a larger degree of equation by 
altering statements 30 and 40 of the program according to the following scheme: 

30 DIM A</V+ /) ,B<N+ /) 
40 FOR 1 = 1 TQ N+1 

where N = degree of equation. 

Example: 

Find the roots of 4x * - 2.5x ^ - x + 0.5 



REAL ROOTS OF POLVNOMIFILS 

NEWTONIAN METHOD 

DEGREE OF EQUATION? 4 

COEFFICIENT fi< O >? .5 

COEFFICIENT A< 1 >? -1 

COEFFICIENT AC 2 .V? -2.5 

COEFFICIENT A< 3 >? 9 

COEFFICIENT AC 4 .V? 4 

GUESS? -.8 

ROOT ERROR DERIVATIVE 

.30357634 -2. 91038305E-1 1 -2.070247 

NEW VALUE «::i=VES.. 0=NO>? Q 
NEW FUNCTION a=VES.. 0=NO>? O 



10 PRINT ".T?EAL ROOTS OF POLVNOfllALS" 
12 PRINT 

15 PRINT "NEWTONIAN METHOD" 
20 PRINT 

28 REM - LIMIT AO AND BO TO N+1; WHEN THIS IS DONE.. LOOP AT LINE 40 

29 REM - SHOULD BE SET TO TEST FROM 1 TO N+1 

30 DIM A<ll>..B(li> 

39 REM - INITIALIZE ARRAY VARIABLES 

40 FOR 1=1 TO 11 
50 A<I>=0 

60 Ba>=0 
70 NEXT I 
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88 PRINT "DEGREE OF EQUATION"; 
90 INPUT N 
95 PRINT 

im REM -"eNTER^COEFFICIENTS IN ORDER OF LESSER TO HIGHER DEGREE 

110 PRINT "COEFFICIENT fl<".: I-l; ">".= 

120 INPUT fl<I> 

130 NEKT I 

140 FOR 1=1 TO 10 

149 REM - CflLCULflTE COEFFICIENT OF DERIVATIVE OF POLVNOMIAL 

150 B<I>=A<I+1>*I 
160 NEXT I 

170 PRINT 

179 REM - INITIALIZE GUESS 

130 PRINT "GUESS"; 

190 INPUT X 

200 Q=0 

210 S=l 

220 F1=0 

230 F0=0 

239 REM - COUNT ITERATIONS 

240 Q=Q+1 

250 FOR 1=1 TO N+1 

259 REM - CALCULATE VALUE OF FUNCTION 

260 F0=F0+A<I>*S 

269 REM - CALCULATE VALUE OF DERIVATIVE 

270 Fl=Fl+Ba>*S 

280 s=sm< 

oqiQ NE^^T I 

299 REM - TEST FOR A ZERO DERIVATIVE; IF VES. STOP SEARCH. PRINT 

300 IF F1=0 THEN 368 

309 REM - GET NEW GUESS USING PREVIOUS GUESS 

310 S=X-F0/F1 

319 REM - IF NEW GUESS EQUALS LAST GUESS THEN STOP SEARCH. PRINT 

320 IF X=S THEN 386 

329 REM - SAVE LAST GUESS 

330 x=s 

340 IF QM00 THEN 490 
350 GOTO 210 

360 PRINT "DERIVATIVE = AT X =";X 
370 GOTO 180 
380 PRINT 

390 PRINT " ROOT" ;TAB<13>; "ERROR"; 
395 PR I NT TAB < 29 > ; " DER I VAT I VE " 
400 PR I NT X ; T AB < 1 3 > ; F0 ; TAB < 29 > ; F 1 
410 PRINT 

419 REM - RERUN TO FIND ANOTHER ROOT IN SAME FUNCTION? 

420 PRINT "NEW VALUE <1=VES. 0=NO>"; 
430 INPUT A 

440 IF A=l THEN 170 

449 REM - RESTART OR END PROGRAM? 

450 PRINT "NEW FUNCTION <1=VES. 0=NO>"; 
460 INPUT A 

470 IF A=l THEN 48 
480 GOTO 550 

489 REM - PRINT CALCULATED VALUES AFTER 108 ITERATIONS; SEARCH 188 MORE? 
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490 PRINT "100 ITERATIONS COMPLETED •• 

500 PRINT "X ="jX;"F<X> =";F0 

510 PRINT " CONTINUE (:i=VES. 0=NO.V'.: 

520 INPUT fl 

530 IF fl==l THEN 200 

540 GOTO 420 

550 END 
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Roots of Polynomials: Half-interval Search 



This program calculates roots of polynomials within a given interval. The program first conducts a random 
search within the given interval for two points with opposite signs. If a change of sign is found, then the root is 
calculated by the half-interval search method. If there is no change of sign found, another interval will be asked 
for. 

En-ors may result in this program for a couple of reasons. First, a root may be calculated when it should not 
be. This may happen if the lowest point is so close to zero that a root is found due to round -off en-or. Second, 
two roots may be so close together that the program never finds the opposite signs between them. The result in 
this case is that neither root is calculated. 

It is necessary to enter the equation before you run the program. The equation will be defined as a function 
of X at statement 30. For example, if you want to find roots of the function x ) = 4x*-2.5x2-x + .5, you will 
enter: 

30 DEFFNR(X)=4*Xt4--S.5*XtS-X+ .5 

Example: 

Find a root of the function f{x)= 4x*-2.5x^- x + .5. 

30 IIEFFNR < X > =4*X t4-2 . ^'A r2-X+ . 5 
RUN 



ROOTS OF POLVNOMIflLS: 

HALF- INTERVAL SEARCH 

CTO END SEARCH ENTER 0..0> 

INTERVAL < LOWER ..UPPER)? -1..0 
NO CHANGE OF SIGN FOUND 
INTERVAL (LOWER ..UPPER)? O.. 1 
ROOT = .303574787 

INTERVAL < LOWER ..UPPER)? 0..0 



10 PRINT-HROOTS OF POLVNOMIALS: 

15 PRINT" HALF- INTERVAL SEARCH 

20 PRINT 

29 REM - ENTER FUNCTION <DEFFNR<K)="FUNCTION" ) 
.30 PRINT ".'ENTER FUNTION AT LINE 30!" 
40 run IK 3) 

50 PRINT "CTO END SEARCH ENTER 0.-0)" 
55 PRINT 

59 REM - ESTABLISH INTERVAL OF RANDOM SEARCH 

60 PRINT "INTERVAL < LOWER ..UPPER)"; 
70 INPUT A..B 
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79 REM - TEST FOR USUflELE LIMITS ENTERED 

80 IF flOB THEN 120 

89 REM - END PROGRAM? 

90 IF Fl=0 THEN 43© 

100 PRINT "— INTERVAL LIMITS CANNOT"; 

105 PRINT "BE EQUAL—" 

110 GOTO 60 

120 IF A<B THEN 150 

130 PRINT "—LOWER LIMIT MUST EE"; 

135 PRINT "ENTERED FIRST—" 

140 GOTO 60 

150 A1=SGN<FNR<A>> 

160 B1=SGN<FNRCB>> 

169 REM - TEST FOR ROOT AT EITHER LIMIT 

170 IF A1*B1=0 THEN 360 

179 REM - TEST FOR OPPOSITE SIGNS AT INTERVAL LIMITS 

180 IF A1*B1<0 THEN 280 

189 REM - LOOP TO SEARCH lOOO NUMBERS FOR OPPOSITE SIGNS IN FilNf:TiriN 

190 FOR 1=1 TO 1000 
200 J<=A+RND<2>*<B-A> 
210 K1=SGN<FNR<K>> 

219 REM - TEST FOR ROOT AT RANDOM NUMBER; IF VES.. END SEARHH. PRINT 

220 IF Kl=& THEN 400 

229 REM - TEST FOR OPPOSITE SIGNS AT RANDOM NUMBER AND LOWER LIMIT 

230 IF A1*X1C0 THEN 270 

239 REM - TRV ANOTHER RANDOM NUMBER 

240 NEKT I 

250 PRINT "NO CHANGE OF SIGN FOUND" 
260 GOTO 60 

269 REM - CHANGE OF SIGN FOUND; CALCULATE ROOT 

270 B—y 

278 REM - STORE POSITIVE POINT IN DC 3).. NEGATIVE POINT IN IK1> 

279 REM - D(l> AND D(3> BECOME INTERVAL LIMITS 

280 D(2+A1>=A 
290 D<2-A1>=B 

299 REM - CALCULATE MIDPOINT BETWEEN THE TWO LIMITS 

300 V= C D < 1 > +D < 3 > > /2 
310 V1=SGN<FNR<V>> 

319 REM - TEST FOR ROOT AT MIDPOINT 

320 IF V1=0 THEN 400 

329 REM - GET A NEW LIMIT TO CLOSE IN ON ROOT 

330 D<2+V1>=V 

339 REM - TEST FOR A VALUE CLOSE ENOUGH TO ZERO TO ASSUME A ROOT 

340 IF ABS<Da>-D<3>>/ABSaKl> +ABS<D<:3>>><-5E-6 THEN 400 

349 REM - RETEST WITH NEW LIMITS " " 

350 GOTO 300 

359 REM - ROOT AT AN INTERVAL LIMIT; FIND WHICH LIMIT.. PRINT 

360 IF A 1=0 THEN 39© 
370 V=B 

380 GOTO 400 
3310 v=A 

400 PRINT "ROOT =":V 
410 PRINT 

419 REM - RESTART PROGRAM 

420 GOTO 60 
430 END 
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Trig Polynomial 



This program solves a trigonometric function for a given angle. The function must be in the following form: 
fix) =/4 iSin{x) + flicos(x) + y42sin(2x) + fl2Sin{2x)... + AnSmin'x) + fl„cos(/7.x) 
where n = the number of pairs of coefficients. 

The coefficients of the function are to be entered in a data statement at line 30. The data statement will in- 
clude the number of pairs of coefficients ( n ) and the coefficients of the polynomial. It will be entered as follows: 

30 DATA n ,y4 , , , ,/4 2»fi2 » • • • '^/J ' 



Example: 

Solve the following equation when the angle equals 45°, 90° and 105°: 

f( X )=sH X ) + 2 'cosl X )-2 •sin(2x ) + cos(2x ) + 5 -sinOx )-3 -cosOx ) 



30 DPlTfl 3.1. .2. -2.. 1.5.. -3 
RUN 



TRIG POLVNOMIflL 

CENTER flNGLE=99999 TO END) 

ANGLE? 45 

F<: 45 .>= 3.09558755 
ANGLE? 90 

F< 90 .)=-2. 831681 19 
ANGLE? 105 

F(. 105 >=- 1.54684808 
ANGLE? 93999 



10 PRINT ".TTRIG POLVNOMIflL" 
20 PRINT 

29 REM - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS WITH DATA 
STATEMENT 

.-^■fi PRINT "ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTSS AT LINE 30!" 
: PRINT 

40 PRINT "(ENTER ANGLE=99999 TO END>":PRINT 
50 PRINT "ANGLE".; 
60 INPUT R 

69 REM - END PROGRAM? 

70 IF R=99999 THEN 180 
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79 REM - GET NUMBER OF PAIRS OF TERMS IiS POLVHOMIflL 

88 READ N 

89 REM - LOOP TO GET VALUES OF COEFFICIENTS FROM DATA TABLE 

90 FOR 1=1 TO N 

109 REM - CALCULATE VALUE OF FUNCTION AT ANGLE K 

1 1 Z=2+ A*S I N < I *R > +B*COS ( I *R > 
120 NEKT I 

129 REM - PRINT RESULTS 

139 REM - PREPARE TO REREAD FUNCTION COEFFICIENTS 

140 RESTORE 
150 PRINT 
160 Z=0 

169 REM - RESTART PROGRAM 

170 GHTO 50 
180 END 



V 
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Simultaneous Equations 



This program solves a system of linear equations. The number of unknown coefficients in each equation 
must equal the number of equations being solved. You must enter the coefficients of each equation. 

The dimension statement at line 30 limits the number of equations which may be solved. You may change 
this limit according to the following scheme: 

30 DIM A(fl,/?+ /) 



where R = the maximum number of equations. 

Example: 

Solve the following system of equations: 

x,+ 2x^+ 3xj=4 
3x?+ 6xz =1 
-3x(+ 4x^- 2x^=0 



30 DIM fl<3.4> 
RUN 



SIMULTANEOUS EQUATIONS 

NUMBER OF EQUATIONS? 3 
COEFFICIENT MATRIX: 

EQUATION 1 

COEFFICIENT 1 ? 1 
COEFFICIENT 2 ? 2 
COEFFICIENT 3 ? 3 
CONSTANT? 4 

EQUATION 2 

COEFFICIENT 1 ? 3 
COEFFICIENT 2 ? 6 
COEFFICIENT 3 ? 
CONSTANT? 1 

EQUATION 3 

COEFFICIENT 1 ? -3 
COEFFICIENT 2 ? 4 
COEFFICIENT 3 ? -2 
CONSTANT? 

X X =-.356 
X S = .344 
X 3 = 1.222 
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10 PRINT "I^IMULTflNEOUS EQUATIONS" 
20 PRINT 

29 REM - LIMIT flO TO fi(R+l) WHERE R=MflXIMUM NUMBER OF EQUATIONS 

30 DIM A< 15.15) 

40 PRINT "NUMBER OF EQUATIONS"; 
50 INPUT R 

60 PRINT "COEFFICIENT MATRIX-" 
70 FOR J=l TO R 
80 PRINT 

85 PRINT "EQUATION";.! 

90 FOR 1=1 TO R+1 

100 IF I=R+1 THEN 130 

110 PRINT " COEFFICIENT"; I; 

120 GOTO 140 

130 PRINT "CONSTANT"; 

140 INPUT A<J..I> 

150 NEXT I 

160 NEXT J 

170 FOR J=l TO R 

178 REM - STATEMENTS 180 TO 22© FIND THE FIRST EQUATION WITH 

179 REM - A N0N-2ER0 COEFFICIENT FOR THE CURRENT COLUMN 

180 FOR I=J TO R 

190 IF A<:i.J)O0 THEN 230 
200 NEXT I 

210 PRINT "NO UNIQUE SOLUTION" 
220 GOTO 440 

229 REM - STATEMENTS 230 TO 270 MOVE THAT EQUATION UP TO THE CURRENT 
ROW 

230 FOR K=l TO R+1 
240 X=A<J..K> 

250 A«;j..K>=A<I.K> 
260 A<I.K>=X 
270 NEXT K 

278 REM - STATEMENTS 280 TO 310 GENERATE A VALUE OF ONE IN THE FIRST 
NON-ZERO 

279 REM - COLUMN OF THE CURRENT ROW 

280 V=1/A<J.J> 
290 FOR K=l TO R+1 

300 a<j.k>=v*a<:j.k> 

310 NEXT K 

318 REM - STATEMENTS 32© TO 38© SUBTRACT CURRENT EQUATION FROM THE OT 

HER ROWS 
320 FOR 1=1 TO R 
330 IFI=J THEN 38© 
340 V=-A(I..J> 
350 FOR K=l TO R+1 
36© A<I.K>=A<I.K)+V#A<J..K> 
37© NEXT K 
38© NEXT I 

389 REM - THIS PROCESS IS REPEATED FOR ALL EQUATIONS 
39© NEXT J 
4©0 PRINT 

409 REM - PRINT SOLUTIONS 
41© FOR 1=1 TO R 

420 PRINT "X";l;"=";INT(Aa.R+l>#1000+.5>/1000 
430 NEXT I 
440 END 
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Linear Programming 



Courtesy: Harold Hanes 

Earlham College 
Richmond, Indiana 



This program uses the simplex method to solve a linear programming problem. You must provide the coeffi- 
cients of the objective function and the coefficients, relation and constant of each constraint. This information is en- 
tered in DATA statements before you run the program. 

After you load the program, enter the DATA statements according to the following instructions. If you run more than 
one problem, remember to clear out all DATA statements from the previous problem before running the new problem. 
Our DATA statements occur at lines 30 through 35. 

1) Arrange your problem constraints according to their relation, so that the "less than" inequalities precede 
the(;^afit^ which in turn precede the "greater than" inequalities. 

2) Type in as DATA the coefficients of the constraints, in the order the constraints were arranged in step 1 Do 
not include coefficients for slack, surplus, or artificial variables. Do include a '0' coefficient for any variable 
that doesn't appear in a particular constraint. 

3) Type in as DATA the constants of the constraints (right-hand sides of the constraints) in the same order as 
you entered the rows of coefficients. These values cannot be negative. 

4) Type in as DATA the coefficients of the objective function. 

You must select whether the problem solution is to be a minimum or maximum value. The program also asks 
you to enter the total number of constraints and the number of variables to allow for each, and the number of less 
than", "equal" and "greater than" constraints you are considering. 

The dimension statement at line 1 80 limits the number of variables and constraints you may enter. You can change 
these limits according to the following scheme: 

180 DIM A<C+2, \/+C+G+ /), B(C + 2 ) 
where: C = number of constraints 
V = number of variables 
G = number of "greater than" constraints 



! t/ 



Example: 

A manufacturer wishes to produce 100 pounds of an alloy which is 83% lead, 14% iron, and 3% antimony. 
He has available five alloys with the following compositions and prices: 





alloy 1 


alloy 2 


alloy 3 


alloy 4 


alloy 5 






90 


80 


95 


70 


30 


C 




5 


5 


2 


30 


70 


c 




5 


15 


3 








c 




$6.13 


$7.12 


$5.85 


$4.57 


$3.96 


c 



How should he combine these alloys to get the desired product at minimum cost? 
Note that this problem results in the following system of equations: 

X, = 



X, + 



X2+ X3+ >f4 + 



30X5 = 

70x . = 



.90x , + .80x 2 + .95x 3 + .70x 4 + 

.05x, + .05x2 + -02x3 + .30x4 + 

.05x, + .15x2 + -03x3 + + 

6.13X , + 7.12x 2 + 5 85x 3 + 4.57x 4 4- 3.96x 5 



IIH3 
100 
83 
14 

Z (min) 
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LINEAR PROGRflmiNG - SIMPLEK METHOD 

1 MAXIMIZES -1 MINIMIZES? -1 

# OF CONSTRAINTS..* OF VARIABLES? 4.. 5 

# OF <:..=..> CONSTRAINTS? 8.. 4. 6 



VOUR VARIABLES 1 THROUGH 5 
ARTIFICIAL VARIABLES 6 THROUGH 9 



ANSWERS •■ 

PRIMAL VARIABLES: 
VARIABLES VALUE 



VALUE OF OBJECTIVE FUNCTION = 544.826887 



1 REM - LINEAR PROGRAMMING 

28 REM - *** DO THE FOLLOWING STEPS BEFORE RUNNING THE PROGRAM *** 

21 REM - TVPE IN COEFFICIENTS OF •'<•'.. ^='. CONSTRAINTS IN DATA 
STATEMENTS; 

22 REM - STARTING AT LINE 38.. A SEPERATE DATA STATEMENT FOR EACH 
CONSTRAINT.: 

23 REM - <LINES 38-35 IN OUR EXAMPLE) 

24 REM - TVPE IN CONSTANTS OF THE CONSTRAINTTS IN A DATA STATEMENT 
FOLLOWING.; 

25 REM - THE COEFFICIENT DATA.. AND IN THE SAME ORDER AS THE CONSTRAINT 
DATA.: 

26 REM - WERE ENTERED <LINE 34 IN OUR EXAMPLE) 

27 REM - TVPE IN COEFFICIENTS OF THE OBJECTIVE FUNCTION IN A DATA 
STATEMENT 

28 REM - <:LINE :35 IN OUR EXAMPLE) FOLLOWING THE CONSTANTS DATA 
38 DATA 1.1.. 1.. 1.. 1 

31 DATA .9.. .8.. .95.. .7.. .3 1 m n \ .1 



:35 DATA 6. 13.. 7. 12.. 5. 85.. 4. 57.. 3. 96 « b^^l-cuc ^c^^^ 
188 PRINT ^ 
178 PRINT "LINEAR PROGRAMMING - ".: 
175 PRINT "SIMPLEX METHOD" 
188 DIM A<6.. 18.)..B<6> 
288 PRINT 

218 PRINT "1 MAXIMIZES -1 MINIMIZES".: 
228 INPUT Z 
238 Z=-Z 

248 PRINT "# OF CONSTRAINTS..* OF "; 
245 PRINT "VARIABLES".: 
258 INPUT M..N 

268 PRINT "# OF <..=..> CONSTRAINTS"; 

278 INPUT L.E..G 

288 IF M=L+E+G THEN 328 

298 PRINT "INCONSISTENT DATA - "; 



4 



18.4347826 

47.826887 

41.7391384 



32 DATA . 85 .. . 85 .. . 82 .. . 3 . 

33 DATA . 85 . . 1 5 .. . 83 .. 8 .. 8 

34 DATA 188.. 83.. 14.. 3 
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295 PRINT "TRV FIGfllH" 
^00 GOTO 260 

319 REM - THIS IS THE IHITIfiLIZFiTION ROUTINE 

320 C=N+M+G 
330 C1=C+1 
340 C2-N+L+G 
350 M1=M+1 
360 M2=M+2 
380 PRINT 

390 FOR 1=1 TO M2 
400 FOR J=l TO CI 
410 fla..J>=0 
420 NEXT J 

430 ne;:^;t I 

440 FOR 1=1 TO M 

450 B(I>=0 
r— 460 HEKl I 
' 470 FOR 1=1 TO M ' 

r480 FOR J=l TO N * 

490 READ fl<I.J> « iV. 

500 IF lOL THEN 520 rf ^ ^ ' 

I 510 fl<ril.. J>=fl<Ml.. J>-fl<I.. J> I 
■"520 NEXT J ' " - 

530 IF I>L THEN 570 

540 B<I>=N+I 

550 fla..N+I>=l 

560 GOTO 630 

570 E<I>=N+G+I 

580 fl<I.N+G+I>=l 

590 IF DL+E THEN 610 

600 GOTO 630 

610 fl<:i..N+I-E>=-l 

620 fl(Ml..N+I-E>=l 
— 630 NEXT I 

|-640 FOR 1=1 TO M . ,\C 

i 650 REflli fl<I.Cl> ^ " 
U660 NEXT I 

r670 FOR J=l TO N ^ , I . 

680 READ fl<ri2.J> ^ 1 
I 690 fl<M2.. J>=Z*fl<M2.. J> 
—700 NEXT J 

710 PRINT 

730 PRINT "VOUR VflRIflBLES 

731 PRINT 1; "THROUGH"; N 
740 IF L=0 THEN 760 

750 PRINT "SLACK VARIABLES"; 

751 PRINT N+l; "THROUGH" ;N+L 
760 IF G=0 THEN 780 

770 PRINT "SURPLUS VARIABLES"; 

771 PRINT N+L+l; " THROUGH ";C2 
780 IF L=M THEN 970 

790 PRINT "ARTIFICIAL VARIABLES"; 

791 PRINT C2+1; "THROUGH" ;C 
800 M3=ril 

810 GOSUE 1240 

820 PRINT 

830 FOR 11=1 TO M 



848 IF B<I1.K=C2 THEN 95© 

850 IF fl<Il..Cl><=.00001 THEN 888 

860 PRINT "NO FEASIBLE SOLUTION" 

870 GOTO 1700 

880 FOR Jl=l TO C2 

890 IF flBS<fl<Il..JlXK=.80001 THEN 940 

900 R=I1 

910 S=J1 

920 GOSUB 1490 

930 J1=C2 

940 NEKT Jl 

950 NEXT II 

970 PRINT 

980 M3=M2 

990 GOSUB 1240 

1020 PRINT 

1030 PRINT "ANSWERS:" 

1040 PRINT "PRinflL VfiRIfiBLES:" 

1050 PRINT "VfiRIfiBLES". "VALUE" 

1060 FOR J=l TO C2 

1070 FOR 1=1 TO M 

1080 IF B<i;jOJ THEN 111© 

1090 PRINT j..A<:i..ci:) 

1100 I=M 

1110 NEXT I 

1120 NEXT J 

1130 IF L=0 THEN 1190 

1140 PRINT "DUAL VARIABLES:" 

1 1 50 PR I NT " VAR I ABLE " .. " VALUE " 

1160 FOR 1=1 TO L 

1170 PRINT I..-Z*A<M2..N+I> 

1180 NEXT I 

1190 PRINT "VALUE OF OBJECTIVE "; 

1191 PRINT "FUNCTION =";-Z*A<M2..Cl> 
1200 PRINT 

1210 PRINT 
1220 PRINT 
1230 GOTO 1700 

1240 REM - OPTIMIZATION ROUTINE 

1241 REM - FIRST PRICE OUT COLUMNS 

1260 P=-. 00001 

1270 FOR J=l TO C2 

1280 IF A<M3...J:»=P THEN 131© 

1290 S=J 

1300 P=A'::M3.J> 

1310 NEXT J 

1320 IF P=-. 00001 THEN 1680 
1330 GOSUB 1350 
1340 GOSUB 1440 
1345 GOTO 1260 

1350 REM - NOW FIND WHICH VARIABLE LEAVE BASIS 

1360 Q=1E38 

1370 FOR 1=1 TO M 

1380 IF Aa..S><=.00001 THEN 1420 

1 390 IF A< I .. CI >/A< I .. S»=Q THEN 1420 

1400 R=I 

1410 Q=A(I..C1.>/ACI.S> 
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1428 NEXT I 
1430 RETURN 

1440 IF Q=1E38 THEN 1478 
1450 GOSUE 1490 
1460 RETURN 

1470 PRINT "THE SOLUTION IS UNBOUNDED" 

14ft0 GOTO 1700 

1490 REM - PERFORM PIVOTING 

l!=i00 p=fl<;R.. S> 

1510 FOR 1=1 TO M2 

1520 IF I=R THEN 1596 

1530 FOR J=l TO CI 

1540 IF J=S THEN 1586 

1 550 fid .. J > =fl < I.. J > -fl ( I .■ S > *fi < R .. J > /P 

1560 IF flBSCFlCI.. J>>>=.00001 THEN 1588 

1570 fl<i..j:)=0 

15S0 NEXT J 

1590 NEKT I 

1600 FOR J=l TO CI 

1610 flCR.. J>=fi<R.. J>/P 

1628 NEXT J 

1638 FOR 1=1 TO M2 

1640 flt:i..S>=0 

1658 NEKT I 

1668 fl<R..S>=l 

1678 B<R>=S 

1680 RETURN 

1788 END 



Matrix Addition, Subtraction, Scalar IVIuitiplication 



This program adds or subtracts two matrices, or multiplies a matrix by a given scalar. You must input the 
value of each element of each matrix. To perform addition or subtraction the dimensions of the two matrices 
must be equal. 

The dimension of the matrices may be increased or decreased depending on the amount of memory availa- 
ble in your system. Statement 30 may be changed to: 

30 DIM A<X,y) , B{X,Y) 



where ( X, V ) is your limit on the dimension of the matrices. 

Example: 

Find the sum of the following matrices, then multiply the resultant matrix by 3. 



1 





-1 




— 

-5 


-1 


2 


5 


8 


.5 




6 


-.1 





1 


2 







3 


4 


-2 



MATRIX AUDITION.. SUBTRACTION.. 
SCALAR MULT I PL I CAT I ON 

l=AIiIiITION 

2=SUBTARCTI0N 

3=MULTIPLICATI0N 



WHICH 


OPERATION? 


1 


DIMENSION OF 


MATRIX 


MATRi;: 


i I-- 






ROW 1 








VALUE 


COLUMN 


1 ? 


1 


VALUE 


COLUMN 


o 





VALUE 


COLUMN 


.-1 •-. 
•J 


-1 


ROW 2 








VALUE 


COLUMN 


1 ? 


5 


VALUE 


COLUMN 


2 ? 


8 


VALUE 


COLUMN 


3 ? 


.5 


ROW 3 








VALUE 


COLUMN 


1 ? 


-1 


VALUE 


COLUMN 


C 




VALUE 


COLUMN 




Q 


MATRIX 2- 






ROW 1 








VALUE 


COLUMN 


1 ? 


-5 


VALUE 


COLUMN 


c : 


-1 


VALUE 


COLUMN 


3 ? 




ROW 2 








VALUE 


COLUMN 


1 ? 


6 
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VfiLUE COLUMN 2 ? -. 1 
VALUE COLUMN 3 ? 9 
ROW 3 

VALUE COLUMN 1 ? 3 
VALUE COLUMN 2 ? 4 
VALUE COLUMN 3 ? -2 
-4 -1 1 

11 7.9 .5 

2 6-2 

MORE DATA? <1=VES..0=NO>? 1 

1= ADDITION 

2=SUBTARCTI0N 

3=MULTIPLICATI0N 

WHICH OPERATION? 3 

VALUE OF SCALAR? 3 

DIMENSION OF MATRIX <:R..C>? 3.3 

MATRIX l: 

ROW 1 

VALUE COLUMN 1 ? -4 
VALUE COLUMN 2 ? -1 
VALUE COLUMN 3 ? 1 
ROW 2 

VALUE COLUMN 1 ? 11 
VALUE COLUMN 2 ? 7.9 
VALUE COLUMN 3 ? .5 
ROW 3 

VALUE COLUMN 1 ? 2 
VALUE COLUMN 2 ? 6 
VALUE COLUMN 3 ? -2 
-12 -3 3 

33 23.7 1.5 

6 18 -6 

MORE DATA? <1=VES.0=NO>? @ 



20 PRINT "MATRIX ADDITION.. "; 

21 PRINT "SUBTRACTION.." 

22 PRINT "SCALAR MULTIPLICATION" 
25 PRINT 

29 REM - ARRAYS SHOULD BE SET TO DIMENSONS OF MATRICES 

30 DIM A<3..3.>..BC3..3> 
40 PRINT "1=ADDITI0N" 

50 PRINT "2=SUBTRACTI0N" 

60 PRINT "3=SCALAR MULTIPLICATION" 

65 PRINT 

69 REM - SELECT OPERATION BV ENTERING THE OPERATION NUMBER c;i-3> 

70 PRINT "WHICH OPERATION".: 
S0 INPUT D 

89 REM - TEST FOR ADDITION OR SUBTRACTION 

90 IF D03 THEN 120 

100 PRINT "VALUE OF SCALAR".: 
110 INPUT S 

120 PRINT "DIMENSION OF MATRIX <R..C>"; 



130 INPUT R..i:: 

138 REM - LOOP TO ENTER mTRVA VALUES 

139 REM - FOR SUBTRACTION. MATRI)<: 2 SUBTRACTED FROH MATRIK 1 

140 FOR K=l TO 2 
150 IF K=2 THEN 180 
160 PRINT "MATRIX 1:" 
170 GOTO 190 

180 PRINT "MATRIX 2-" 

190 FOR J=l TO R 

200 PRINT "ROW"; J 

210 FOR 1=1 TO C 

220 PRINT "VALUE COLUMN"; I.: 

230 IF K-2 THEN 260 

240 INPUT ACT.. I> 

250 GOTO 270 

260 INPUT B<J.. I> 

270 NEXT I 

280 NEXT J 

289 REM - ONLV ONE MATRIX USED FOR SCALAR MULTIPLICATION 

290 IF D=3 THEN 310 
300 NEXT K 

308 REM - STATEMENTS 310 TO 410 PERFORM REQUESTED OPERATION AND PRINT 

309 REM - RESULTANT MATRIX 

310 FOR J=l TO R 
320 FOR 1=1 TO C 
330 IF D02 THEN 350 
340 B<J.. I>=-ECJ.. I> 
350 IF D=3 THEN 380 

360 PRINT A<J.. I)+B<J.I>; " "; 
370 GOTO 390 
380 PRINT A(J.. I>*S;" "; 
390 NEXT I 

399 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

400 PRINT 
410 NEXT J 
420 PRINT 

429 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

430 PRINT "MORE DATA? <1=VES.. 0=NO>"; 
440 INPUT D 

450 IF D=l THEN 30 
460 END 
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Matrix Multiplication 



This program multiplies two matrices. The first matrix is multiplied by the second. You must input the ele- 
ments of each matrix. 

in order for this operation to be performed the number of rows in the first matrix must equal the number of 
columns in the second matrix. 

The dimensions of the matrices are presently limited to 20 x 20. This limit may be increased or decreased by 
altering line 30 according to the following scheme: 

30 DIM A<X,y) , B<Z,X) 

where: ( X / ) = dimension of matrix 1 
( Z.X ) = dimension of matrix 2 

Example: 

Multiply ms^trix 1 by matrix 2. 
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-1 


4 


1 


2 


1 





1 


2 


-1 


2 


3 


-1 





-2 


2 


-1 


2 
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1 






■1 


1 


4 






3 





-1 






2 


1 


2 







30 DIM fl<3.. 5 >..£:< 5.. SO- 
RUN 



MflTR I K nULT I PL I CRT I ON 

MflTRIX 1 HI MENS I ON <R..C>? 3.. 5 
MflTRIK 2 DIMENSION <R..C>? 5.3 
MflTRIK I-- 
ROW 1 

VflLUE COLUMN 1 ? 2 
VALUE COLUMN 2 ? -1 
VflLUE COLUMN 3 ? 4 
VflLUE COLUMN 4 ? 1 
VflLUE COLUMN .5 ? 2 
ROW 2 

VflLUE COLUMN 1 ? 1 
VflLUE COLUMN 2 ? 6 
VflLUE COLUMN 3 ? 1 
VflLUE COLUMN 4 ? 2 
VflLUE COLUMN 5 ? -1 
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10 PRINT "niflTRIX MULTIPLICATION" 
20 PRINT 

29 REM - flRRAVS A AND B SHOULD BE SET TO DIMENSIONS OF MATRICES 

30 DIM A < 20 .. 20 ) . B < 20 .. 20 "> 

40 PRINT "MATRIX 1 DIMENSION CR.O"; 
50 INPUT Rl.. CI 

60 PRINT "MATRIX 2 DIMENSION <R..C ;:■".: 
70 INPUT R2..C2 

79 REM - NUMBER OF COLUMNS IN MATRIX 1 MUST EQUAL NUMBER OF ROWS IN 
MATRIX 2 

80 IF C1=R2 THEN 11© 

90 PRINT "CANNOT BE .MULTIPLIED" 
100 GOTO 40 

109 REM - ENTER MATIRX VALUES 

110 PRINT "MATRIX 1 : " 
120 FOR ..T=l TO Rl 

130 PRINT "ROW".; .J 

140 FOR 1=1 TO CI 

150 PRINT "VALUE COLUMN".; I.: 

160 INPUT A«;.J.. I> 

170 NEXT I 

180 NEXT .J 

190 PRINT 
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200 PRINT "MflTRIK 2:" 

210 FOR J=l TO R2 

220 PRINT "ROW"; J 

230 FOR 1=1 TO C2 

240 PRINT "VALUE COLUMN";!.: 

250 INPUT B<J.I> 

260 NEKT I 

270 NEKT J 

280 PRINT 

289 REM - PERFORM MATRIX MULTIPLICATION.. PRINT RESULTANT MATRIX 

290 FOR 1=1 TO Rl 
300 FOR J=i TO C2 
310 S=0 

320 FOR K=l TO CI 
330 S=S+A < I .. K ) *B <: K .. J > 
340 NEXT K 
350 PRINT S;" "; 
360 NEXT .J 

369 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

370 PRINT 
380 NEXT I 
390 END 
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Matrix Inversion 



This program inverts a square matrix. The inversion is performed by a modified Gauss-Jordan elimination 
method. 

The dimensions of the matrices are presently limited to 20 x 20. This limit may be increased or decreased by 
altering line 30 according to the following scheme: 

30 DIM A(/?,/?), B(/?,/?) 
where /? = numiaer of rows (or columns) in the matrix. 

Example: 

Invert matrix A. 

5 -1 -4 
4 -.7 -3 

-2 1 

6 .3 



MATRIX INVERSION 

MATRIX DIMENSION? 4 
MATRIX ELEMENTS: 



ROW 1 



VALUE 


COLUMN 
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ROW 2 
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ROW 3 










VALUE 


COLUMN 


1 







VALUE 


COLUMN 


o 




-2 


VALUE 


COLUMN 
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ROW 4 










VALUE 


COLUMN 


1 




-2 


VALUE 


COLUMN 


2 
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VALUE 


COLUMN 


3 







VALUE 


COLUMN 


4 




.3 



.654 -.935 -.191 

.198 -.283 -.103 

.368 -1.955 -4.263 

.397 -.567 .793 




.014 
.156 
-.425 
.312 
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10 PRINT "niflTRIX INVERSION" 
20 PRINT 

29 REM - flO flND EC:- SHOULD BOTH BE SET TO THE DIMENSIONS OF THE MRTIRIK 

30 DIM fl<20..20>..B';20..20> 

39 REM - MfiTRIK IS SQUARE SO ONLV ONE DIMENSION IS NEEDED 

40 PRINT "MATRIX DIMENSION"; 
50 INPUT R 

60 PRINT "MATRIX ELEMENTS'" 

€9 REM - ENTER MATRIX ELEMENTS 

70 FOR J=l TO R 

80 PRINT "ROW"; J 

90 FOR 1=1 TO R 

100 PRINT "VALUE COLUMN"; I; 

110 INPUT A(J.. I> 

120 NEXT I 

130 E(J..J>=1 

140 NEXT J 

149 REM - STATEMENTS 150 TO 420 INVERT MATRIX 

150 FOR J=l TO R 
160 FOR I=J TO R 

170 IF Aa..J>O0 THEN 210 
180 NEXT I 

190 PRINT "SINGULAR MATRIX" 

200 GOTO 500 

210 FOR K=l TO R 

220 S=fl<:J.K> 

230 fl<J..K>=A(I..K> 

240 Ra..K>=S 

250 S=B<J^K> 

260 B<J.K>=B(I..K> 

270 E<I.K>=S 

280 NEXT K 

290 T=i/A<:J..J> 

300 FOR K=l TO R 

3 1 A < J .. K :> =T* A (. J .. K ) 

320 B<J..K>=T*B<J..K> 

330 NEXT K 

■'-:40 FOR L=l TO R 

350 IF L=J THEN 410 

360 T=-A<L.. J> 

370 FOR K=l TO R 

380 A ( L .. K > =A c; L .. K > +T*R ( J , K > 

390 E(L.K>=B(L.K)+T*B(J.K> 

400 NEXT K 

410 NEXT L 

420 NEXT J 

430 PRINT 

439 REM - PRINT RESULTANT MATRIX 

440 FOR 1=1 TO R 
450 FOR J=l TO R 

459 REM - ROUND OFF.. PRINT 

460 PR I NT I NT < B (I . J > * 1 090+ . 5 > / 1 080 .. 

461 PRINT " "; 
470 NEXT J 

479 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT LINE 

480 PRINT 
490 NEXT I 
500 END 
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Permutations and Combinations 



This program computes the number of permutations and combinations of N objects taken D at a time. 
Examples: 

How many permutations and combinations can be made of the 26 letters of the alphabet, taking five at a 

time? 

How many different ways can 12 people sit on a bench if there is only room for two at a time? 



PERMUTFlTIONS & COME I NAT IONS 

(ENTER TO END PROGRAM > 
TOTAL NUMBER OF OBJECTS? 26 
SIZE OF SUBGROUP? 5 

7893600 PERMUTATIONS 

65780 COMBINATIONS 

TOTAL NUMBER OF OBJECTS? 12 
SIZE OF SUBGROUP? 2 

132 PERMUTATIONS 

66 COMBINATIONS 

TOTAL NUMBER OF OBJECTS? 8 



20 PRINT "3>ERMUTATI0NS & COMBINATIONS" 
25 PRINT 

30 PRINT "< ENTER TO END PROGRAM)" 
40 PRINT "TOTAL NUMBER OF OBJECTS"; 
50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 280 

70 PRINT "SIZE OF SUBGROUP"; 
80 INPUT D 

89 REM - SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP 

90 IF D<=N THEN 130 

100 PRINT "SUBGROUP TOO LARGE" 
110 PRINT 
120 GOTO 40 

129 REM - LINES 130 TO 200 COMPUTE PERMUTATIONS 

130 P=l 
140 C=l 

150 FOR I=N-D+1 TO N 

159 REM - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITV 

160 IF 1.7E38/I>=P THEN 19© 

170 PRINT "> 1.7E38 PERMUTATIONS" 
180 GOTO 280 
190 P=P*I 
200 NEXT I 
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20^ REM - COMPUTE INTERMEDIATE FACTOR I flL FOR COMBINATIONS 
210\FOR J=2 to D 
220 C=C#J 
230 NEXT J 

240 PRINT P; "PERMUTATIONS" 
250 PRINT P/C; "COMBINATIONS" 
260 PRINT 

269 REM - RESTART PROGRAM 

270 GOTO 40 
280 ENB 



Mann-Whitney U Test 



This program performs the Mann-Whitney U test on samples from two populations. 

The dimension statement on line 30 limits the size of the samples. You can increase or decrease the dimen- 
sion limits according to the following scheme: 

30 DIM X<M) , Y(/V) 

where: M = maximum size of first sample 

N = maximum size of second sample 

Example: 

A group of ten women and a group of ten men were asked to rate the flavor of a frozen T.V. dinner on a 
scale of one to ten. The table below lists the scores. Count the number of times the women's scores are lower 
than the men's, and vice-versa. 



women 


1 


3 


4 


3 


6 


8 


9 


7 


8 


4 


men 


7 


9 


8 


5 


10 


9 


10 


6 


5 


2 



38 DIM X(10>.V<10> 
RUN 

MflNN-WH I THEV U-TEST 
SfiMPLE 1 : 



'6 1 ZE':'" 


10 




DflTfl 


1 ? 


1 

J. 


Dfllfl 
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DflTfl 


O 
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DflTfl 


4 ? 


3 


DflTfl 


5 ? 


6 


DflTfl 


6 ? 


O 


DflTfl 


-? 

r 




DflTfl 


O **"' 

'-' : 


l' 


DflTfl 


S ? 




DflTfl 


ki- 


*i A 


IMPLE 2 : 




SIZE? 


lo 




DflTfl 


1 ? 


—J 

r 


DflTfl 


c 


9 


DflTfl 


3 ? 




DflTfl 


4 ? 


5 


DflTfl 




10 


DflTfl 


6 ? 


9 


DflTfl 


1 : 


10 


DflTfl 


8 ? 


f. 


DflTfl 


3 ? 


5 


DflTfl 


10 7 


c 



FIRST PRECEDING.. U = 71.5 
SECOND PRECEDING.. U = 28.5 
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10 PRINT "ITIflNN-WHITNEV U-TEST" 
20 PRINT 

28 REM - SET MftXIMUM SAMPLE SIZE TO .HXM>.. VCN) (WHERE M=MflXIMUM SIZE OF 

29 REM - SAMPLE 1.. N=MflXIMUM SIZE OF SAMPLE 2> 

30 DIM K<:25>..V<25) 
40 DIM N<2> 

49 REM - INPUT THE TWO SAMPLES 

50 FOR 1=1 TO 2 

60 PRINT "SAMPLE";!.:":" 

70 PRINT " SIZE"; 

80 INPUT N<I> 

90 FOR J=l TO N<I> 

100 PRINT " DATA";.;; 

110 INPUT V<J> 

120 HEXT J 

129 REM - SORT EACH SAMPLE 

130 FOR J=l TO H<1> 
140 FOR K=l TO N<I>-J 
150 i>V<K ) 

170 IF V<K><V<K+1> THEN 20© 
180 V<K>=V(:K+1> 

190 v<:k+i>=c 

200 NEXT K 
210 NEKT J 
220 PRINT 

229 REM - TRANSFER FIRST EXAMPLE TO X-ARRAV 

230 IF 1=2 THEN 278 
240 FOR J=l TO N<1> 
250 X<J>=V<J> 

260 NEXT J 
270 NEXT I 

279 REM - ADD UP RANKS 

280 R=l 
290 1=0 

300 J=0 

310 1=1+1 
320 J=J+1 

330 IF I>N<1> THEN 588 
340 IF J>N<2> THEN 628 
350 IF Xa><V<J> THEN 620 
360 IF V<J:KX<I> then 590 

369 REM - LINES 370 TO 578 HANDLE EQUAL SCORES FROM BOTH SAMPLES 

370 K=2 
380 M=I 
390 L=J 

488 R1=2*R+1 
418 R=R+2 
428 1=1+1 
430 J=J+1 

440 IF I>NC1> THEN 488 

450 IF X<I.K>a-l> THEN 488 

468 1=1+1 

470 GOTO 510 

480 IF .J>N<2> THEN 558 

490 IF Va>0<J-l> THEN 558 

500 .J=J+1 

510 R1=R1+R 
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520 R=R+1 
530 K=K+1 
540 GOTO 440 

550 x=x+<i-mmi/K 

560 V=V+<J-L>*R1/K 

570 GOTO 330 

580 IF J>N<2:> THEN 660 

590 V=V+R 

600 J=J+1 

610 GOTO 640 

620 X=K+R 

630 1=1+1 

640 R=R+1 

650 GOTO 330 

659 REM - U1=NUMBER OF TIMES SAMPLE 1 SCORES PRECEDE SAMPLE 2 SCORES 

660 U1=H< 1 >*N<2>+N<: 1 >*<N< 1 >+l >/2-X 

669 REM - U2=NUMBER OF TIMES SAMPLE 2 SCORES PRECEDE SAMPLE 1 SCORES 

670 U2=N < 1 > *N <: 2 > +N < 2 > * <; N < 2 > + 1 > /2- V 
680 PRINT 

690 PRINT "FIRST PRECEDING. U =";U1 
700 PRINT "SECOND PRECEDING.. U =".:U2 
710 END 
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Mean, Variance, Standard Deviation 



This program calculates the arithmetic mean, variance and standard deviation of grouped or ungrouped 
data. The data may represent the entire population or just a sample. 

Examples: 

There are ten people in a hotel lobby, aged 87, 53, 35, 42, 9, 48, 51, 60, 39 and 44. What would the mean, 
variance and standard deviation of the ages of all the people in the hotel be using the people in the lobby as a 
sample? 

Find the mean, variance and standard deviation of the ages of the cream cheese on a market shelf. The table 
below lists the age distribution of 50 packages. Assume the table shows the store's entire inventory. What if it is 
only a sample of the inventory? 

age 
quantity 

cream cheese 



1 


2 


3 


4 


5 


6 


15 


10 


9 


6 


7 


3 



flEflN. VFIRIFlNCE.. STflNDfiRD DEVI FIT I ON 

riETHOD <0=POPULflTION.. l=SflMPLE>? 1 

IiflTfl <0=GROUPEIi.. l=UNGROUPEIi>? 1 

NUMBER OF OBSERVATIONS? IS 

ITEM 1 ? 87 

ITEM 2 ? 53 

ITEM 3 ? 35 

ITEM 4 ? 42 

ITEM 5 ? 9 

ITEM 6 ? 48 

ITEM 7 ? 51 

ITEM 8 ? 60 

ITEM 9 ? 39 

ITEM 10 ? 44 

MEAN VARIANCE 
46.8 389.733332 

STANDARD DEVIATION 
19.7416649 

MORE DATA t:i=VES.. 0=NO>? 1 

METHOD <0=POPULATION.. 1=SAMPLE>? O 

DATA <0=GROUPED.. 1=UNGR0UPED>? O 

NUMBER OF OBSERVATIONS? 6 

ITEM. FREQUENCY 1 ? 1..15 

ITEM.. FREQUENCY 2 ? 2,18 

ITEM.. FREQUENCY 3 ? 3,9 

ITEM.. FREQUENCY 4 ? 4.. 6 
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ITEM.. FREQUENCV 5 ? 5.7 
ITEM. FREQUENCV 6 ? 6.3 

MEAN VflRIfiNCE 
2.78 2.57159999 

STflNDflRB DEVIATION 
1.6836209 



METHOD (0=POPULflTION. l=SflMPLE>? 1 

DflTfl <:0=GROUPED.. 1=UNGR0UPED>? 

NUMBER OF OBSERVATIONS? 6 

ITEM. FREQUENCV 1 ? 1.15 

ITEM. FREQUENCV 2 ? 2.18 

ITEM. FREQUENCV 3 ? 3.9 

ITEM. FREQUENCV 4 ? 4.6 

ITEM. FREQUENCV 5 ? 5.7 

ITEM. FREQUENCV 6 ? 6.3 

MEAN VARIANCE 
2.78 2.62408162 

STANDARD DEVIATION 
1.6199017 

MORE DATA <:i=VES. 0=NO>? 



10 PRINT ".HE AN. VARIANCE. 
20 PRINT "STANDARD DEVIATION" 
25 PRINT 

38 PRINT "METHOD <0=POPULATION. ".: 
31 PRINT "1=SAMPLE>"; 
40 INPUT S 

58 PRINT "DATA <:0=GROUPED. "; 
51 PRINT "1=UNGR0UPED>".: 
68 INPUT K 

78 PRINT "NUMBER OF OBSERVATIONS"; 
88 INPUT N 
98 R=8 
188 M=8 
lie P=8 

128 IF K=l THEN 238 

129 REM - FOR GROUPED DATA 
138 FOR 1=1 TO N 

148 PRINT "ITEM. FREQUENCV"; I; 

158 INPUT A.B 

159 REM - ACCUMULATE ENTERED VALUES 

160 R=R+B^A 

169 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE 
178 P=P+B 
180 M=M+B*A'r2 

198 NEXT I 

199 REM - CALCULATE MEAN AND VARIANCE 
288 R=R/P 

218 V=<M-P*Rt2>/<P-S) 
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219 REM - PRINT RESULTS 

220 GOTO 310 

229 REM - FOR UNGROUPED DfiTfl 

230 FOR 1=1 TO N 
240 PRINT " ITEM"; I; 
250 INPUT D 

259 REM - flCCUMUflTE ENTERED VftLUES 

P^P+D 

269 REM - flCCUMULflTE INTERMEDIflTE VALUES FOR VflRIflNCE 

270 M=M+Dt2 
280 NEXT I 

289 REM - CflLCULflTE MEAN AND VflRIflNCE.. PRINT 

290 R=P/N 

300 V=<:M--N*Rt2)/<N-S> 
310 PRINT 

319 REM - PRINT RESULTS 

320 PRINT "MEAN". "VflRIflNCE" 

330 PRINT R.V 

331 PRINT 

332 PRINT "STANDARD DEVIATION" 

333 PRINT SQR<V> 
340 PRINT 

349 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

350 PRINT "MORE DATA a=VES.. 0=NO>"; 
360 INPUT S 

370 IF S=l THEN 25 
380 END 



Geometric Mean and Deviation 



This program computes the geometric mean and standard deviation of a set of data. 
Example: 

Find the geometric mean and standard deviation of 3, 5, 8, 3, 7, 2. 



GEOMETRIC MEAN flND DEVIfiTION 

(TO END PROGRFlM.. ENTER 0> 
NUMBER OF OBSERVATIONS? 6 
ITEM 1 ? 3 
ITEM 2 ? 5 
ITEM 3 ? 8 
ITEM 4 ? 3 
ITEM 5 ? 7 
ITEM 6 ? 2 

GEOMETRIC MEAN = 4.14868084 
GEOMETRIC DEVIATION = 1.72368956 

NUMBER OF OBSERVATIONS? 8 



10 PRINT ".TGEOMETRIC MEAN AND DEVIATION" 
20 PRINT 

30 PRINT "(TO END PROGRAM. ENTER ©>" 
40 PRINT "NUMBER OF OBSERVATIONS"; 
50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 280 

69 REM - COMPUTE WHICH ROOT TO USE 

70 P=l/N 
80 M=l 

90 FOR 1=1 TO N 
100 PRINT "ITEM"; I; 
110 INPUT D 

119 REM - ITERATIVELV COMPUTE MEAN 

120 M=M!f"D'tP 

129 REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION 

1 30 Q=Q+LOG ( D > 12 
140 NEXT I 

149 REM - COMPUTE DEVIATION 

1 50 R=EXP ( SQR ( Q/ ( N- 1 > - ( N/ ( N- 1 > * ( LOG ( M > > t2 > > > 
160 PRINT "GEOMETRIC MEAN =";M 

170 PRINT "GEOMETRIC DEVIATION =";R 
180 PRINT 

189 REM - RESTART PROGRAM 

190 GOTO 40 
200 END 
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Binomial Distribution 



This program calculates the probability of obtaining a given nunnber of successes in a given number of Ber- 
noulli trials. You must provide the probability of success on a single trial. 

Examples: 

What is the probability of getting three heads in five tosses of a fair coin? 
What is the probability that in five rolls of a fair die, a one (1) appears twice? 



BINOMIflL DISTRIBUTION 

<T0 END PROGRAM ENTER 0> 
NUMBER OF TRIALS? 5 
EXACT NUMBER OF SUCCESSES? 3 
PROBABILITV OF SUCCESS? .5 

PROBABILITV OF 3 SUCCESSES 
IN 5 TRIALS = .3125 

NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? 2 

PROBABILITV OF SUCCESS? .166666667 

PROBABILITV OF 2 SUCCESSES 
IN 5 TRIALS = .160751029 

NUMBER OF TRIALS? O 



10 PRINT "HBINOMIAL DISTRIBUTION" 
20 PRINT 
30 DIM M<3> 

40 PRINT "<T0 END PROGRAM ENTER 0>" 

50 PRINT "NUMBER OF TRIALS"; 

60 INPUT N 

70 IF N=0 THEN 270 

80 PRINT "EXACT NUMBER OF SUCCESSES"; 
90 INPUT X 

100 PRINT "PROBABILITV OF SUCCESS"; 
110 INPUT P 

119 REM - COMPUTE THE FACTORIALS 

120 M<1>=N 
130 M<2>=X 
140 M<3>=N-X 
150 FOR 1=1 TO 3 

160 IF Ma.>=0 THEN 226 
170 A=l 

180 FOR J=l TO mi> 
190 A=A#J 
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200 NEXT J 

210 M<:i>=LOG<fl> 

220 NEXT I 

229 REM - USING THE COMPUTED FACTOR I flLS. COMPUTE PROBflBILITV 

230 R=EXP < M < 1 > -M ( 2 > -M < 3 > +X*LOG <P>+< N-X > *LOG < 1 -P > ^ 
235 PRINT 

240 PRINT"PROBfiBILITV OF";X; 
245 PRINT "SUCCESSES" 
247 PRINT " IN". ;N.: "TRIALS =".:R 
250 PRINT 

259 REM - RESTART PROGRAM 

260 GOTO 50 
270 END 
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Poisson Distribution 



Using the Poisson distribution this program calculates the probability of an event occurring a given number 
of times. You must know the expected frequency of the event. 



Example: 

2000 people are injected with a serum. The probability of any one person having a bad reaction is .001. Thus 
we can expect two (.001 '2000 =2) individuals will suffer a bad reaction. What is the probability that four people 
will have bad reactions? Only one person? 



POISSON DISTRIBUTION 

CTO END PROGRAM ENTER 0> 

CflLCULflTED FREQUENCV? 2 
TEST FREQUENCV? 4 
PROBFIEILITV OF 4 
OCCURRENCES = .9902235222 

CflLCULflTED FREQUENCV? 2 
TEST FREQUENCV? 1 
PROBflBILITV OF 1 
OCCURRENCES = .270670566 

CflLCULflTED FREQUENCV? 



10 PRINT "."POISSON DISTRIBUTION" 
15 PRINT 

20 PRINT "<;T0 end PROGRflM ENTER ©>" 
30 PRINT 

40 PRINT "CflLCULflTED FREQUENCV".: 
50 INPUT L 

59 REM - END PROGRflM? 

60 IF L=0 THEN 180 

70 PRINT "TEST FREQUENCV"; 
80 INPUT X 

89 REM - COMPUTE FACTORIAL 

90 A=l 

100 FOR 1=1 TO X 
110 A=fl*I 
120 NEXT I 

129 REM - COMPUTE PROBflBILITV 

130 fl=LOG<fl> 

140 fl=EXP<-L+X*LOG<L.>-A> 
150 PRINT "PROBflBILITV OF";X 
160 PRINT "OCCURRENCES =".:A 

169 REM - RESTART PROGRAM 

170 GOTO 30 
180 END 
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Normal Distribution 



This program calculates the probability and frequency of given values on a standard normal distribution 
curve. You can use non-standard variables if you know the mean and standard deviation. 




X 

Standard normal distribution 

The shaded area represents the probability of x . k corresponds to the frequency of x . 
The normal probability is approximated using the following formula: 
probability = 1 -/-(a, f + a + a^t^) + e(x) 

where: a, = .4361836 
a 2 = -.1201676 
3 3 = .9372980 
r = (e->fV2)(27r)- 
f = (1 +.3326x)- ' 
I €U)| < 10-5 

Example: 

The mean weight of the male students at a college is 150 pounds. The standard deviation is 15 pounds If 
the weights are normally distributed, what is the probability that a student weighs between 150 and 180 pounds? 
Between 130 and 150 pounds? 

NORMfiL DISTRIBUTION 

<. 0=STftMDflRD .. 1 =NCiN-.STflNriflRri > 
WHICH TVPE OF VfiRIflBLE"* 1 
MEFIN? 150 

ST-flNDRRD DEVI AT I ON? 15 

CIO END PROGRAM .X=9999S'> 
K =? 180 

FREQUENCV = .0539909665 
PROEflBILITV = .977241178 

y. =? 130 

FREQUENCV = .164010074 
PROBflBILITV = .908798028 

X =? 99999 
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10 PRINT "□^JORMflL DISTRIBUTION" 
20 PRINT 

:-:0 PR INT " ( 0=STflNDflRD . 1 =NON-STflNDfiRD > " 
40 PRINT "WHICH TVPE OF VflRIflBLE"; 
50 INPUT S 

%% PEm''"-'^LINES 70^TO 110 REQUEST ^NON-STflNDflRD^ VflRIflBLE DflTfl 
70 PRINT "MEAN".: 
80 INPUT M 

90 PRINT "STflNDflRD DEVIflTION"; 
100 INPUT S 
110 GOTO 130 
120 S=l 
130 PRINT 

140 PRINT "ao END PROGRftM X=993S9>" 
150 PRINT "H" ="; 
160 INPUT K 

170 IF H=9S9S'3 THEN 290 

180 X=flBS(:<:X-M>/S> 

1 9Q R=EXP ^-<y.t2y /2 > /2 . 5066282746 

200 PRINT "FREQUENCV =".:R 

210 Z=K 

220 T= 1 / a + . 33267*flBS <C X > ) 

230 T= 1 -R* < . 436 1 836*T- . 1 20 1 67*T 12+ . 937298*T tS > 
240 IF Z>=0 THEN 260 
250 T=l-T 

260 PRINT "PROEflBILITV =".:T 
270 PRINT 

279 REM - RESTflRT PROGRAM 

280 GOTO 150 
290 END 
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Chi-square Distribution 



This program calculates the tail-end value for points on a chi-square iX') distribution curve. You must pro- 
vide the value of and the degrees of freedom. 




Chi-square distribution 



The shaded area represents the tail-end value of X'. 

The X^ distribution function is calculated using the following formulas: 

{X^)(v + W2 .e-xV2 



with V odd, tail-end value = 1 - 



1 .3 .5 



Vi 



X' IT 



with V even, tail-end value = 1 



{X')v/2 .e-xV2 



{X^)m 



2 • 4 • ... V 

where: v - degrees of freedom 

00 

Z = 1 + 2 

777 = 1 ( V +2) .( V +4) ....U +2m) 
n.vt f^""-^^ surnmation in the calculation of Zcannot actually extend to infinity, we stop summation when the 
next term is less than a chosen level of precision. The computational precision is limited to approximately 10-'. 
Example: 

m»inH? ^ 168 people who complained they did not sleep well, 54 were given sleeping pills and the re- 

mainder received placebos. They were later asked whether or not the pills had helped them sleep The X ' statistic 
for this study was computed to be 2.571 108 with one degree of freedom. What is the tail-end value? 



CHI-SQUflRE DISTRIBUTION 

<T0 ENB PROGRAM ENTER 0> 
DEGREES OF FREEDOM? 1 
CHI-SQUflRE? 2.571108 
TAIL END VALUE = .108831483 

DEGREES OF FREEDOM? O 
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10 PRINT "XHI-SQUflRE DISTRIBUTION" 
20 PRINT 

30 PRINT "<T0 END PROGRflM ENTER 0>" 

40 PRINT "DEGREES OF FREEDOM"; 

50 INPUT V 

60 IF V=0 THEN 280 

70 PRINT "CHI -SQUARE".: 

80 INPUT W 

89 REM - R=DENOMINflTOR PRODUCT 

90 R=l 

100 FOR I=V TO 2 STEP -2 
110 R=R*I 
120 NEXT I 

129 REM - K=THE NUMERATOR PRODUCT 
13fl K=Wt<INT<<V+l)/2>>*EXP<-W/2>/R 

139 REM - THE PI FACTOR IS USED ONLV WHEN DEGREES OF FREEDOM ARE ODD 

140 IF INT<:V/2>=V/2 THEN 170 
150 J=SQR<2/W/fT) 

160 GOTO 180 

169 REM - L < SUMMATION FACTOR) CALCULATED LINES 170-24© 

170 J=l 
180 L=l 
190 M=l 
200 v=V+2 
210 M=M*W/V 

21*5 REM - CHECK FOR END OF SUMMATION 
220 IF M<. 0000001 THEN 250 
230 L=L+M 
240 GOTO 200 

250 PRINT "TAIL END VALUE =".: 1-.J*K#L 
260 PRINT 

269 REM - RESTART PROGRAM 

270 GOTO 40 
280 END 



OPTION 

You may wish to compute the percentile rather than the tail-end value. This value con-esponds to the 
unshaded area in the figure above. The program changes necessary are listed following the example below. 

Example: 

What is the percentile in the example above? 



CH I -SQUARE D I STR I BUT I ON 

<T0 END PROGRAM ENTER 0> 
DEGREES OF FREEDOM? 1 
CHI -SQUARE? 2.571108 
PERCENT I LE= . 89 1 1 685 1 7 

DEGREEf; OF FREEDOM? 
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1 REM - OPTION 250 

10 PRINT ".XH I -SQUARE DISTRIBUTION" 



240 GOTO 200 

250 PRINT "PERCENTILE =";J*K*L 
260 PRINT 

263 REN - RESTART PROGRfld 
270 GOTO 40 
280 END 
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Chi-square Test 



This program calculates the chi-square ( X M statistic and degrees of freedom associated with a given con- 
tingency table. The expected value for each cell and X ^ contribution from each cell are also printed. 

The dimension statement at line 30 limits the size of the contingency table. You can change the dimensions 
according to the following scheme: 

30 DIM Vl(/?-C>, VS(C), A(ff) 

where: /? = number of rows in the contingency table 

C = number of columns in the contingency table 



Example: 

Of a group of people who complained they could not sleep well, some were given sleeping pills while others 
were given placebos. Later they were asked whether or not the pills had helped them sleep. The results are 
detailed in the table below. What is the value of the X ^ statistic? 



slept 
well 



slept 
poorly 



sleeping pill 
placebo 



44 


10 


81 


35 



30 DIM Vl<4>A'<2>..fl<2) 
RUN 

CHI -SQUARE TEST 

NUMBER OF ROWS? 2 
NUMBER OF COLUMNS? 2 
CONTINGENCV TABLE: 
ROW 1 

ELEMENT 1 ? 44 
ELEMENT 2 ? IS 
?:0W 2 

ELEMENT 1 ? 81 
ELEMENT 2 ? 35 



OBSERVED 
COLUMN 1 
44 



81 



COLUMN 2 

10 

35 



EXPECTED CHIt2 CONTRIBUTION 



39.7058824 
85.2941177 

14.2941176 
30.7058824 



.362549019 
. 168772821 

1.00708061 
.468813387 



CHI -SQUARE = 2.00721584 
DEGREES OF FREEDOM = 1 
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18 PRINT "□CHI SQUARE TEST" 
20 PRINT 



2 

28 REM - LIMIT SIZE OF CONTINCCNCV TABLES TO V1<R*C>. V2CC> . fl<P> ; 
k"9 REM - WHERE R=HUMEER OF ROWS. C=NUMBER OF nOLUMNS ' ' 

30 DIM VlC25>..V2(2>..fi<2> -ul-lnn. 
40 PRINT "NUMBER OF ROWS"; 

49 REM - INPUT CONTINGENCV TABLE LINES 50 TO 158 

50 INPUT R 

60 PRINT "NUMBER OF COLUMNS"; 
70 INPUT C 

80 PRINT "CONTINGENCV TABLE :" 

90 FOR 1=1 TO R 

100 PRINT "ROW"; I 

110 FOR .J=l TO C 

120 PRINT " ELEMENT" ;J; 

130 INPUT Vl<a-l)*C+J:) 

140 NEXT J 

150 NEXT I 

160 PRINT 

169 REM - ADD UP MARGINAL FREQUENCIES FOR EACH ROW 

170 L=0 
180 M=l 

190 FOR 1=1 TO R 
200 FOR J=l TO C 
210 A<I>=A<I>+V1<M> 
220 M=M+1 
230 NEXT J 
240 L=L+A<:i> 
250 NEXT I 
260 N=R*C 

269 REM - ADD UP MARGINAL FREQUENCIES FOR EACH COLUMN 

270 FOR 1=1 TO C 

280 FOR J=I TO N STEP C 
290 V2 C I > = V2 < I > + V 1 < J > 
300 NEXT J 
310 NEXT I 
320 Z=0 

330 PRINT "OBSERVED ";" EXPECTED "; 

331 PRINT "CHI 12 CONTRIBUTION" 
340 FOR 1=1 TO C 

350 PRINT " COLUMN"; I 
360 FOR .J=l TO R 

369 REM - P=EXPECTED CELL VALUE 

370 P= A < J ? * V2 < I > /L 
375 



X=I + <J-l>3f£C 



^ ?i^;.l:!^?«^21|; CORRECTION FOR CONTINUITV IN 2 X 2 CHI-SQUARE TES" 
.-■80 IF ROti: THEN 390 

381 IF C<>2 THEN 399 

382 V= ( ABS <: V 1 < X > -P > - . 5 > t2/P 

383 GOTO 400 

389 REM - V=CHI-SQUARE CONTRIBUTION FROM THIS CELL 

390 V=<VKX>-P>12/P 

399 REM - Z=TOTAL CHI-SQUARE VALUE 

400 Z=Z+V 

410 PRINT TAB<3>;VKX>;TAB<10>;P; 

411 PRINT TAE<24);V 
420 NEXT J 
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430 NE.XT I 
440 PRINT 

450 PRINT "CHI -SQUARE =".:Z 

460 PRINT "DEGREES OF FREEDOM 

461 PRINT (C-1>*<R-1> 
470 END 



Student's t -distribution 



This program calculates right-tail values for points on a t -distribution curve. You must provide the value of t 
and the degrees of freedom. 




t 

Student's t -distribution 

The shaded area represents the right-tail value for t . 

The right-tail value is approximated using the following formula: 

right-tail value =i(l+a,x + a^x^ + a^x^ + a^x*)-* + eU) 

where: a, = .196854 

a^ = .115194 

3 3 = .000344 

a 4 = .019527 

d = degrees of freedom 
I € (x ) I < 2.5 . 10-* 

Examples: 

What is the right-tail value when the f -value is 2.921 and there are 16 degrees of freedom? 
What is the right-tail value when the ? -value is 11.178 and there are 5 degrees of freedom? 

student's t-bistribution 
<:to end program enter ©.> 

T VALUE? 2.921 
DEGREES OF FREEDOM? 16 
RIGHT TAIL VALUE = 9.7E-04 

T VALUE? 11.178 
DEGREES OF FREEDOM? .5 
RIGHT TAIL VALUE = 4E-05 

T VALUE? 
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10 PRINT "USTUDENT-S T-D I SIR I BUT ION" 
20 PRINT 

30 PRINT "(TO END PROGRAM ENTER Li.J" 

40 PRINT "T VFlLUE".: 

50 INPUT T 

60 IF T=0 THEN 348 

70 PRINT "DEGREES OF FREEDOM"; 

80 INPUT D 

90 X=l 

100 V=l 

110 T~T 'T£ 

119 rEm ~ COMPUTE USING INVERSE FOR SMALL T- VALUES 

120 IF TCI THEN 170 
130 S=V 

140 R=D 
150 Z=T 
160 GOTO 200 
170 S=D 
180 R=V 
190 2=1/T 
200 J=2/9/S 
210 K=2/9/R 

■:>19 REM - CnriPUTE USING APPROXIMATION FORMULAS 

220 L= ABS < C 1 -K > *Z t< 1 /3 > - 1 + J > /SQR < K*Z t< 2/3 > + J > 

230 IF R<:4 THEN 278 ^s^.*^ 

24fi X= . 5/ <■ 1 +L* ( . 1 96854+L* < . 1 1 5 1 94+L* < . 000344+L* . 8 1 95i'7 ; > > > t4 

250 y.= I NT < X* 1 0000+ . 5 > / 1 00000 

260 GOTO 290 

270 L=L* < 1 + . 08*L t4/R 13 > 

280 GOTO 240 

289 REM - ADJUST IF INVERSE WAS COMPUTED 

290 IF T>=1 THEN 318 
300 X=l-X 

310 PRINT "RIGHT TAIL VALUE =";K 
320 PR I NT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 



Student's f- distribution Test 



This program calculates the f -statistic and degrees of freedom for Student's distribution. The calculations 
can be based on any one of three hypotheses. 

The first hypothesis assumes that one population mean is equal to a given value. You must enter the ele- 
ments of the sample and the value of the mean. 

The remaining hypotheses compare two populations. In both tests the means of the two populations are 
equal, but the standard deviations may be equal or unequal. For these hypotheses you must enter the elements of 
each sample. 

The dimension statement at line 30 limits the size of the samples you may enter. You can change the limit 
according to the following scheme: 

30 DIM P(/V,e) 
where N = maximum sample size. 

Examples: 

A sample of children's IQ's was taken, the results being 101, 99, 120, 79, 111, 98, 106 112 87 and 97 
Calculate the f -statistic assuming the population mean is 100. - . . 

A second sample was taken, the results being 101, 95, 130, 150, 75, 79, 1 1 1, 100, 98 and 91. Calculate the 
f -statistic based on the hypothesis that the two samples have equal means and standard deviations. 



STUDENT'S T-DISTRIBLITION TEST 

TEST l- MEflN=X 

TEST 2 - f1EflN=MEflN..SD=SD 

TEST 3: MEftN=MEflN.. SDOSD 

WHICH HVPOTHESIS ? 1 

SAMPLE 1 : 
NUMBER OF ELEMENTS ? 19 
ELEMENT 1 ? 181 
ELEMENT 2 ? 99 
ELEMENT 3 ? 128 
ELEMENT 4 ? 79 
ELEMENT 5 ? Ill 
ELEMENT 6 ? 98 
ELEMENT 7 ? 186 
ELEMENT 8 ? 112 
ELEMENT 9 ? 87 
ELEMENT 18 ? 97 

VALUE OF MEAN? 188 

T-VALUE = .26151383 
DEGREES OF FREEDOM = 9 
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STUBENT'S T-DISTRIEUTION TEST 

TEST i: nEm=x 

TEST 2: MEflN=riEflN..SD=SD 
TEST 3: riEflN=riEflN..SDOSri 

WHICH HVPOTHESIS ? 2 - 

SAMPLE 1 : 
NUMBER OF ELEMENTS ? 19 

ELEMENT 1 ? 181 

ELEMENT 2 ? 99 

ELEMENT 3 ? 129 

ELEMENT 4 ? 79 

ELEMENT 5 ? Ill 

ELEMENT 6 ? 98 

ELEMENT 7 ? 196 

ELEMENT 8 ? 112 

ELEMENT 9 7 87 

ELEMENT 19 ? 97 
SAMPLE 2 : 
NUMBER OF ELEMENTS ? 19 

ELEMENT 1 ? 181 

ELEMENT 2 ? 95 

ELEMENT 3 ? 139 

ELEMENT 4 ? 159 

ELEMENT 5 ? 75 

ELEMENT 6 ? 79 

ELEMENT 7 ? Ill 

ELEMENT 8 ? 199 

ELEMENT 9 ? 98 

ELEMENT 19 ? 91 



T- VALUE = .24651528 
DEGREES OF FREEDOM = 18 



19 PRINT "IXTUDENT'S T-DISTRIBUTION TEST" 
29 PRINT 

29 REM - LIMIT SAMPLE SIZE TO P<N.2) WHERE N=MAXIMUM SAMPLE SIZE 

39 DIM P<19.2> 

49 DIM V<2>..R<:2>..M<:2>.D<2> 

59 PRINT "TEST 1: MEAN=X" 

60 PRINT "TEST 2- MEAN=MEAN.SD=SD" 
78 PRINT "TEST 3: MEAN=MEAN.SDOSD" 
89 PRINT -PRINT "WHICH HVPOTHESIS 

98 INPUT T 

188 PRINT 

189 REM - INPUT 1 OR 2 SAMPLES DEPENDING ON HVPOTHESIS 
118 FOR 1=1 TO SGN<T-1>+1 

128 va>=9 

139 Da>=8 

149 PRINT "SAMPLE"; I;":" 

159 PRINT " NUMBER OF ELEMENTS 

169 INPUT R<I> 

179 FOR J=l TO R<I> 



180 PRINT " ELEMENT"; J; 
190 INPUT P<J.I> 

199 REM - flCCUMULRTE SAMPLES 

200 V<I>=V<I>+P<J.I) 
210 D<I>=D<I>+Pa. I>12 
220 NEXT J 

229 REM - COMPUTE INTERMEDIATE VALUES 

230 M<I>=V<I)/R<I> 

240 V< I )=<D< I >-V< I > 12/R< I > >/<R< D-l > 
250 NEXT I 
260 PRINT 

270 IF T=2 THEN 340 
280 IF T-3 THEN 380 

289 REM - INPUT GIVEN VALUE FOR FIRST HVPOTHESIS 

290 PRINT "VALUE OF MEAN"; 
300 INPUT M 

309 REM - COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HVPOTHESIS 

310 A=<M<1>-M>*SQR<R<1>/V<1>> 
320 B=RC1>-1 

330 GOTO 420 

339 REM - COMPUTE T AND DEGREES OF FREEDOM FOR SECOND HVPOTHESIS 

340 A=<M< 1 >-M<2) >/SQR< 1/RC 1 >+l/R(;2> > 
350 B=Ra>+R<2>-2 

360 A=A/SQR<: < <R< 1 >-l >*V< 1 >+<R(.2>-l >*V<:2> >/B) 
370 GOTO 420 

379 REM - COMPUTE T AND DEGREES OF FREEDOM FOR THIRD HVPOTHESIS 

380 A=CM<1>-M<2>>/SQRCV<1>/R<1>+V<:2>/R<2>> 
390 B=<:V< 1 )/R( 1 >+V<2>/R<2> > t2 

400 B=B/<:<Va>/R<l>>t2/<:Ra>+l>+<:V<2>/R<2>>t2/<Rc-2>+l>>-2 
410 B=INTCB+.5> . . . c 

420 PRINT 

430 PRINT "T-VALUE =";ABS<A> 

440 PRINT "DEGREES OF FREEDOM =";B 

450 END 
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F -distribution 



This program calculates percentile values for given values on an F -distribution curve. You must provide the 
value of F, the degrees of freedom in the numerator and the degrees of freedom in the denominator. 




F 

The F -distribution 



The area of the shaded region represents the percentile. 

The F -distribution function is approximated using the following formula: 

percentile = 1- |(l+a,K + ajK^ + a ^y^ + a,/*)'* + ely) 

where: a, = .196854 

32 = .115194 

a 3 = .000344 

a 4 = .019527 

2 2 _2_ 2 

/ = (/^'/Ml-i^^)-(1-9c/^))(9c/ + /^/'-gd^)- 

d , = degrees of freedom in numerator 

d 2 = degrees of freedom in denominator 

I € (/ ) I < 2.5 X 10-* 

Examples: 

What is the percentile on an F -distribution curve when the F -value is .474 and the degrees of freedom are 
1 and 18? 

What is the percentile when the F -value is 23.7 and the degrees of freedom are 3 and 6? 



F-DISTRIBUTION 

CIO END PROGRRM ENTER 0> 
F-VflLUE? .474 

DEGREES OF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 18 
PERCENTILE = .4937 

F- VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
PERCENTILE = .9984 

F-VALUE? 
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10 PRINT "."F-DISTRIBLITION" 
20 PRINT 

30 PRINT "<T0 END PROGRflfl ENTER 0>" 

40 PRINT "F- VALUE ".: 

50 INPUT F 

60 IF F=0 THEN 340 

70 PRINT "DEGREES OF FREEDOM "; 

71 PRINT "IN NUMERATOR"; 
80 INPUT Dl 

90 PRINT "DEGREES OF FREEDOM 

91 PRINT "IN DENOMINATOR". : 
100 INPUT D2 

110 X=l 

119 REM - COMPUTE USING INVERSE FOR SMALL F-VALUES 

120 IF F<1 THEN 178 
130 S=D1 

140 T=D2 
150 2=F 
160 GOTO 200 
170 S=D2 
180 T=D1 
190 2=1/F 
200 J=2/9/S 
210 K=2/9/T 

219 REM - COMPUTE USING APPROS^IMATION FORMULAS 

220 V= ABS < < 1 -K > *Z K 1 /3 ) - 1 + J > /SQR C K*2 tC 2/3 ) + J > 
230 IF T<4 THEN 270 

240 ><=.5/a+V*<. 196854+V*<. 115194+V*<.000344+V*.019527>>>>t4 

250 K= I NT C 1 0000+ . 5 > / 1 0000 

260 GOTO 290 

270 V= V* < 1 + . 08* V t4/T t3 > 

280 GOTO 240 

289 REM - ADJUST IF INVERSE WAS COMPUTED 

290 IF F>=1 THEN 310 

.■-I0PI I:s'=l~H' 

310 PRINT "PERCENTILE =";1-X 
;-;2Pi F'P I NT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 



OPTION 

You may prefer to compute the tail-end value (the area of the unshaded region in the figure above). The pro- 
gram changes necessary are listed following the examples below. 

Examples: 

What is the tail-end value on an F -distribution curve when the F -value is .474 and the degrees of freedom 
are 1 and 18? 

What is the tail-end value when the f -value is 23.7 and the degrees of freedom are 3 and 6? 
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F-DISTRIBUTION 

aO END PROGRflM ENTER 0> 
F-VflLLIE? .474 

IiEGREES OF FREEDOM IN NUMERflTOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 18 
TAIL END VALUE = .5863 

F- VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
TAIL END VALUE = 1.6E-03 

F-VALUE? 



1 REM - OPTION 310 

10 PRINT "v"F-DISTRIBUTION" 



300 K=l-X 

310 PRINT "TAIL END VALUE =":.)< 
320 PRINT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 
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Linear Correlation Coefficient 



This program computes the coefficient of correlation between two variables. A linear relationship is 
assumed between the variables. You must enter the coordinates of a group of data points forming the regression 
line. 

Example: 

The height of twelve men and their sons is recorded in the table below. What is the coefficient of correlation 
between the heights of fathers and the heights of their sons? 



father 


65 


63 


67 


64 


68 


62 


70 


66 


68 


67 


69 


71 


son 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 


70 



height in inches 



LINEAR CORRELATION COEFFICIENT 

NUMBER OF POINTS? 12 
>:.V OF POINT 1 ? 65.68 
K.V OF POINT 2 ? 63.66 
X..V OF POINT 3 ? 67 ..68 
X.V OF POINT 4 ? 64.65 
H'.V OF POINT 5 ? 68.. 69 
K..V OF POINT 6 ? 62 ..66 
.X.V OF POINT 7 ? 70.. 68 
X.V OF POINT 8 ? 66.. 65 
J-i.V OF POINT 9 ? 68.71 
X.V OF POINT 10 ? 67.67 
.X.V OF POINT 11 ? 69.68 
X.V OF POINT 12 ? 71.70 

COEFFICIENT OF CORRELATION = .702652258 



10 PRINT "□LINEAR CORRELATION COEFFICIENT" 
20 PRINT 

30 PRINT "NUMBER OF POINTS"; 
40 INPUT N 

99 REM - ENTER COORDINATES OF DATA POINT?: 

100 FOR 1=1 TO N 

110 PRINT "K.V OF POINT";!: 
120 INPUT K.V 

129 REM - ACCUMULATE INTERMEDIATE VALUES 
1:30 J=J+>< 

140 k=k:+v 

150 L=L+Xt2 
160 M=M+V t2 
170 R=R+X*V 
1A0 NEKT I 

189 REM - CALCULATE COEFFICIENT. PRINT 
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1 9& R2= (. N*R- J*K > /SQR < < N*L- J rZ > * < N*M-K 12 > > 
200 PRINT 

210 PRINT "CORRELflTION COEFFICIENT ="; 
215 PRINT R2 
220 END 



Linear Regression 



This program fits a straight line to a given set of coordinates using the method of least squares. The equa- 
tion of the line, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 
Once the line has been fitted, you may predict values of y for given values of x . 

Example: 

The table below shows the height and weight of 1 1 male college students. Fit a curve to these points. How 
much would the average 70" and 72" male student weigh? 



height (in.) 


71 


73 


64 


65 


61 


70 


65 


72 


63 


67 


64 


weight (lbs.) 


160 


183 


154 


168 


159 


180 


145 


210 


132 


168 


141 



LINEAR REGRESSION 

NUMBER OF KNOWN POINTS? 11 

X..V OF POINT 1 ? 71. .160 

K.V OF POINT 2 ? 73.. 183 

X..V OF POINT 3 ? 64.. 154 

X.V OF POINT 4 ? 65.168 

X..V OF POINT 5 ? 61.. 159 

X/t' OF POINT 6 ? 70.180 

X..V OF POINT 7 ? 65.145 

X.V OF POINT 8 ? 72.. 218 

X..V OF POINT 9 ? 63.132 

X.V OF POINT 10 ? 67.168 

X.V OF POINT 11 ? 64.141 

FCX>=-106. 791727 + C 4.04722312 * X> 

COEFFICIENT OF DETERMINfiTI0N<Rt2>= .556260313 

COEFFICIENT OF CORRELfiTION= .745828608 

STFINDflRD ERROR OF ESTIMfiTE= 15.4134854 

INTERPOLATION: < ENTER .X=0 TO END> 
X =? 70 

V = 176.513892 

V =184.608338 
X =? 
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10 PRINT "HLINEflR REGRESSION" 
20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 
40 INPUT N 

93 REM - LOOP TO ENTER COORD I NATES OF POINTS 

100 FOR 1=1 TO N 

110 PRINT ">=:..V OF POINT"; I. : 

120 INPUT X.V 

123 REM - flCCUMULFlTE INTERMEDIFiTE SUMS 
130 J=J+K 

140 k:=k+v 

150 L=L+X12 
160 M=M+Vt2 
170 R2=R2+X*V 
180 NEXT I 

189 REM - COMPUTE CURVE COEFFICIENT 

1 90 B= < N*R2-K* J > / < N*L- J t2 > 
200 fl=<:K-B*J>/N 

210 PRINT 

220 PRINT "F(:x>=";fl; "+ <";B;"* i<>" 

229 REM - COMPUTE REGRESSION flNflVLVSIS 

230 .J=B* < R2- J*K/N > 
240 M=M-Kt2/N 

250 K=M-J 
260 PRINT 
270 R2=J/M 

280 PRINT "COEFFICIENT OF "; 

281 PRINT "DETERMINATION"; 

282 PRINT "<Rt2>= ";R2 

283 PRINT 

290 PRINT "COEFFICIENT OF "; 

29 1 PR I NT " CORRELflT 1 0N= " ; SQR ( R2 > 

292 PRINT 

300 PRINT"STflNDflRD ERROR OF ESTIMflTE="; 

301 PRINT SQR<K/<N-2>> 
310 PRINT 

319 REM - ESTIMATE V-COORDINATES OF POINTS WITH ENTERED J<-COORDINATES 

320 PRINT "INTERPOLATION: "; 

321 PRINT "(ENTER X=0 TO END>" 
330 PRINT "K =":. 

340 INPUT K 

349 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

350 IF X=Q THEN 390 
360 PRINT "V =";A+B*K 
370 PRINT 

380 GOTO 330 
390 END 
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Multiple Linear Regression 



This program finds the coefficients of a multiple variable linear equation using the method of least squares. 
The equation is of the following form: 

/ =c + a^x^ + 82X2 + ■•• Bp Xp 

where: / = dependent variable 
c = constant 

a 1, a 2 ... 3/7 = coefficients of independent variables x x 2, . . . x„ 



The constant and the coefficients are printed. 

You must provide the x - and y -coordinates of known data points. Once the equation has been found using 
the data you enter, you may predict values of the dependent variables for given values of the independent varia- 
bles. 

The dimension statement at line 30 limits the number of known data points the equation may contain. You can 
change this limit according to the following scheme: 



30 DIM X(yV+/), SiN+1), T(/V+/), fi,iN+UN + 2) 



where N = the number of known data points. 

Example: 

The table below shows the age, height and weight of eight boys. Using weight as the dependent variable, fit 
a curve to the data. Estimate the weight of a seven year old boy who is 51 inches tall. 



age 


8 


9 


6 


10 


8 


9 


9 


7 


height 


48 


49 


44 


59 


55 


51 


55 


50 


weight 


59 


55 


50 


80 


61 


75 


67 


58 



MULTIPLE LINEAR REGRES-SIOH 

NUMBER OF KNOWN POINTS? 8 

# OF INDEPENDENT VflRIflBLES? 2 

POINT 1 
VFIRIflBLE 1 ? 3 
VflRIflBLE 2 ? 4S 
DEPENDENT VflRIflBLE? 59 

POINT 2 
VflRIflBLE 1 ? 9 
VflRIflBLE 2 ? 49 
DEPENDENT VflRIflBLE? 55 
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PCI I NT 3 
VflRIflBLE 1 7 6 
VflRIflBLE 2 ? 44 
DEPENDENT VflRIflBLE? 56 

POINT 4 

VflRIflBLE 1 ? 10 

VflRIflBLE 2 ? 59 

DEPENDENT VflRIflBLE? 8© 
POINT 5 

VflRIflBLE 1 ? S 

VflRIflBLE 2 ? 55 

DEPENDENT VflRIflBLE? 61 
POINT 6 

VflRIflBLE 1 ? 9 

VflRIflBLE 2 ? 51 

DEPENDENT VflRIflBLE? 75 
POINT 7 

VflRIflBLE 1 ? 9 

VflRIflBLE 2 ? 55 

DEPENDENT VflRIflBLE? 67 
POINT 8 

VflRIflBLE 1 ? 7 

VflRIflBLE 2 ? 50 

DEPENDENT VflRIflBLE? 58 

EQUflT I ON COEFF I C I ENTS ^ 

CONSTANT : -15. 7021277 
VflRIflBLEC 1 >■• 3.68085106 
VflRIflBLE< 2 >: .943262412 

COEFFICIENT OF DETERMINflTION 

<Rt2> = .715697404 
COEFFICIENT OF MULTIPLE 
CORRELflTION = .845989009 
STflNDflRD ERROR OF ESTIMflTE = 6.42887917 

INTERPOLflTION: (ENTER TO END PROGRflM) 
VflRIflBLE 1 ? 7 
VflRIflBLE 2 ? 51 

DEPENDENT VflRIflBLE = 58.1702128 
VflRIflBLE 1 ? 



10 PRINT "IHULTIPLE LINEflR REGRESSION" 
20 PRINT 

29 REM - SET flRRflV LIMITS TO XCN+1>. S<N+1>. T<:N+1>. fl<N+l.N+2> 

30 DIM >«9>.S<9>..T<9>.fl<9. 10> 

40 PRINT "NUMBER OF KNOWN POINTS"; 
50 INPUT N 

60 PRINT "# OF INDEPENDENT VflRIflBLES"; 

70 INPUT V 

80 X<1>=1 

90 FOR 1=1 TO N 

100 PRINT "POINT"; I 

110 FOR J=l TO V 

119 REM - ENTER INDEPENDENT VflRIflBLES FOR EACH POINT 
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120 PRINT " VflRIftBLE";J; 
130 INPUT XCJ+l) 
140 NEXT J 

149 REM - ENTER DEPENDENT VflRIfiBLE FOR EACH POINT 

150 PRINT " DEPENDENT VflRIfiBLE"; 
160 INPUT X<:V+2) 

169 REM - POPULATE fl MATRIX TO BE USED IN CURVE FITTING 

170 FOR K=l TO V+1 
180 FOR L=l TO V+2 

190 A<K..L)=A<K..L>+X<K>#X<L) 
200 S<K)=A<K.V+2> 
210 NEXT L 
220 NEXT K 

230 S<V+2>=S<V+2>+X<V+2)t2 
240 NEXT I 

248 REM - STATEMENTS 250 TO 500 FIT CURVE BV SOLVING THE SVSTEM OF; 

249 REM - LINEAR EQUATIONS IN MATRIX AO 

250 FOR 1=2 TO V+1 
260 T<I)=A<1.I) 
270 NEXT I 

280 FOR 1=1 TO V+1 
290 J=I 

300 IF ACJ.DOO THEN 340 
305 J=J+1 

310 IF J<=V+1 THEN 300 

320 PRINT "NO UNIQUE SOLUTION" 

330 GOTO 810 

340 FOR K=l TO V+2 

350 B=fla.K> 

360 A<I..K>=A<J.K> 

370 fl<J.K>=B 

380 NEXT K 

390 Z=1/A<I.I> 

400 FOR K=l TO V+2 

410 fl<:i.K>=Z*A<I,K> 

420 NEXT K 

430 FOR J=l TO V+1 

440 IF J=I THEN 490 

450 Z=-A<J.I> 

460 FOR K=l TO V+2 

470 A<J.K)=A<J.K)+Z*A<I,K) 

480 NEXT K 

490 NEXT J 

500 NEXT I 

510 PRINT 

520 PRINT "EQUATION COEFFICIENTS'" 
525 PRINT " CONSTANT- "A<1, V+2) 
530 FOR 1=2 TO V+1 

540 PRINT "VARIABLE<";I-l;"):";A<I,V+2> 
550 NEXT I 
560 P=0 

570 FOR 1=2 TO V+1 

580 P=P+A< I . V+2>*<S< I )-T< I )#S< 1 )/N) 

590 NEXT I 

600 R=S<V+2)-S<l>12/N 
610 Z=R-P 
620 L=N-V-1 
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630 I=P/V 
640 PRINT 
650 I=P/R 

660 PRINT "COEFFICIENT OF 

661 PRINT "DETERMINATION " 

665 PRINT " <Rt2> =".:I 

670 PRINT "COEFFICIENT OF MULTIPLE" 
675 PRINT "CORRELATION =".:Si3R<I> 

680 PRINT "STANDARD ERROR OF ESTIMATE"; 

681 PRINT SQR<AES<Z/L>> 
690 PRINT 

699 REM - ESTIMATE DEPENDENT VARIABLE FROM ENTERED INDEPENDENT V ARABLES 

700 PRINT "INTERPOLATION: 

701 PRINT "(ENTER TO END PROGRAM)" 
710 P=A<:i..V+2> 

720 FOR J=l TO V 

730 PRINT "VARIABLE";.!; 

740 INPUT K 

749 REM - TEST FOR END OF PROGRAM 

750 IF X=0 THEN 810 
760 P=P+A < J+ 1 .. V+2 > *X 
770 NEXT J 

780 PRINT "DEPENDENT VARIABLE =";P 
790 PRINT 

799 REM - RETURN FOR MORE DATA 

800 GOTO 710 
810 END 
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N th Order Regression 



This program finds tlie coefficients of an N th order equation using the method of least squares. The equa- 
tion is of the following form: 

where: / = dependent variable 
c = constant 

a i,a 2. . .an = coefficients of independent variables x,x . . x" , respectively 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and / -coordinates for known data points. Once the equation has been computed 
you may predict values of / for given values of x. 

The dimension statement at line 30 limits the degree of the equation. You can change this limit according to 
the following scheme: 

30 DIM A<2.D+/), R(£>+/,Z? + 2), TiD + 2) 
where D = maximum degree of equation. 

Example: 

The table below gives the stopping distance (reaction plus braking distance) of an automobile at various 
speeds. Fit an exponential curve to the data. Estimate the stopping distance at 55 m.p.h. 



m.p.h. 


20 


30 


40 


50 


60 


70 


stopping distance 


54 


90 


138 


206 


292 


396 



30 DIM fi<5>..R(3.4>..T<4.> 
RUN 



NTH-ORDER REGRESSION 

DEGREE OF EQUATION? 2 
NUMBER OF KNOWN POINTS? 6 
X.V OF POINT 1 ? 20.54 
X.V OF POINT 2 ? 30.. 90 
X.V OF POINT 3 ? 40.138 
KA' OF POINT 4 ? 50.-206 
K.V OF POINT 5 ? 60.-292 
X..V OF POINT 6 ? 70.. 396 

CONSTANT = 41. 7? 14472 

1 DEGREE COEFFICIENT =-1.09571524 

2 DEGREE COEFFICIENT = .0878571531 
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COEFFICIENT OF DETERMINATION 
<Rt2> = .999927959 

CORRELATION COEFFICIENT = .999963979 
STANDARD ERROR ESTIMATE = 1.42694106 

INTERPOLATION: (ENTER O TO END> 

V ='247.274998 

X =? 



10 PRINT "a^'TH ORDER REGRESSION" 
20 PRINT 

28 REM - SET LIMITS OF DEGREE OF EQUATION TO A<2D+1>. R<D+1 >..D+2>.. Tai+2> 

29 REM - < WHERE D=MAJ<IMUM DEGREE OF EQUATION) 

30 DIM A<13),R<7.8).T<:8) 

40 PRINT "DEGREE OF EQUATION"; 
50 INPUT D 

60 PRINT "NUMBER OF KNOWN POINTS"; 
70 INPUT N 
80 A<1>=N 

89 REM - ENTER COORDINATES OF DATA POINTS 

90 FOR 1=1 TO N 

100 PRINT "K.V OF POINT"; I; 
110 INPUT X..V 

119 REM - LINES 120 TO 200 POPULATE MATRICES WITH A SVSTEM OF EQUATIONS 

120 FOR J=2 TO 2*D+1 
130 A<J>=A<J)+Xt<J-l) 
140 NEXT J 

150 FOR K=l TO D+1 
1 60 R < K .. D+2 > =T < K > +V*X t< K- 1 > 
170 T<K>=T(K>+V#Xt<:K-l) 
180 NEXT K 

190 T<D+2>=T<:D+2>+V12 
200 NEXT I 

209 REM - LINES 210 TO 490 SOLVE THE SVSTEM OF EQUATIONS IN THE MATRICES 

210 FOR J=l TO D+1 
220 FOR K=l TO D+1 
230 R<J.K>=A<J+K-1> 
240 NEXT K 

250 NEXT J 

260 FOR J=l TO D+1 

270 FOR K=J TO D+1 

280 IF RCK..J>O0 THEN 320 

290 NEXT K 

300 PRINT "NO UNIQUE SOLUTION" 

310 GOTO 790 

320 FOR 1=1 TO D+2 

330 S=R<J.. I> 

340 R<J.. I>=R<K. I) 

350 R<K.I>=S 

360 NEXT I 

370 Z=1/R<J.J> 

380 FOR 1=1 TO D+2 

390 R<J.I>=Z*R<J.I> 

400 NEXT I 
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410 FOR K=l TO D+1 

420 IF K=J THEN 47© 

430 Z=-R<K.J> 

440 FOR 1=1 TO D+2 

450 R<K. I>=R<K. I>+Z#R<J.I) 

460 NEXT I 

470 NEXT K 

480 NEXT J 

490 PRINT 

495 PRINT " CONSTANT 

496 PRINT R<l.D+2) 

499 REM - PRINT EQUATION COEFFICIENTS 

500 FOR J=l TO D 

510 PRINT J; "DEGREE COEFFICIENT =".: 

511 PRINT R<J+l.D+2> 
520 NEXT J 

530 PRINT 

539 REM - COMPUTE REGRESSION ANAL VS IS 

549 pa0 

550 FOR J=2 TO D+1 

560 P=P+R< J. D+2>#<T< J>-A<.J>*T<: 1 >/N> 
570 NEXT J 

580 Q=T<D+2>-T<l>t2/N 
590 Z=Q~P 
600 I=N-D-1 
620 PRINT 
630 J=P/Q 

640 PRINT "COEFFICIENT OF "; 

641 PRINT "DETERMINATION" 
645 PRINT "<Rt2> =";J 

650 PRINT "CORRELATION COEFFICIENT ="; 

651 PRINT SQRCJ) 

660 PRINT "STANDARD ERROR ESTIMATE 

661 PRINT SQR<Z/I> 
670 PRINT 

679 REM - COMPUTE V-COORDINATE FROM ENTERED X-COORDINATE 

680 PRINT "INTERPOLATION- "; 

681 PRINT "<ENTER O TO END>" 
690 P=R<l.D+2> 

700 PRINT "X ="; 

710 INPUT X 

720 IF X=0 THEN 790 

730 FOR J=l TO D 

740 P=:P+R<J+l,D+2)#XtJ 

750 NEXT J 

760 PRINT "V =";P 

770 PRINT 

780 GOTO 690 

790 END 
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Geometric Regression 



This program fits a geometric curve to a set of coordinates using the method of least squares. The equa- 
tion, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 

You must provide the x - and / -coordinates of known data points. Once the curve has been fitted you may 
predict values of k for given values of x . 

Example: 

The table below gives the pressures of a gas measured at various volumes in an experiment. The relation- 
ship between pressure and volume of a gas is expressed by the following formula: 

P\/^= C 

where. P = pressure 
V = volume 
C and K are constants. 

This formula can be rewritten in standard geometric form: 

p = cv-'^ 

Note the exponent is negative, which accounts for the negative exponents the program calculates. 
Rt a geometric curve to the data and estimate the pressure of 90 cubic inches of the gas. 



volume 


56.1 


60.7 


73.2 


88.3 


120.1 


187.5 


pressure 


57.0 


51.0 


39.2 


30.2 


19.6 


10.5 



GEOMETRIC REGRESSION 

NUMBER OF KNOWN POINTS? 6 
^^..V OF POINT 1 ? 56.1.57.0 
K..V OF POINT 2 ? 60.7.51.0 
X..V OF POINT 3 ? 73.2.39.2 
OF POINT 4 ? 88.3.30.2 
X.V OF POINT 5 ? 120.1.19.6 
X.V OF POINT 6 ? 187.5.10.5 

FOO = 16103.7139 * Xt-1 . 40155091 

COEFFICIENT OF DETERMINATION 
<Rt2> = .999999206 

COEFFICIENT OF CORRELATION = .999999603 



STflNIiflRD ERROR OF ESTIMATE - 6. 37591016E-04 
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INTERPOLflTION: (.X=Q TO END> 
H" =? 90 

V = 29.3734983 
K =? 



10 PRINT "r3GE0METRIC REGRESSION" 
20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 
40 INPUT N 

99 REM - ENTER COORDINPlTES OF HflTFI POINTS 

100 FOR 1=1 TO N 

110 PRINT "K..V OF POINT"; I. : 
120 INPUT 

129 REM - flCCUMULflTE INTERMEDIATE VALUES 

130 V=LOGCt'> 
140 X=LOG(JC' 
150 J=J+X 

160 k:=k+v 

170 L=L+?<;t2 
180 M=M+V t2 
190 R2=R2+J-::*V 
200 NEXT I 

209 REM - CflLCULRTE flND PRINT COEFFICIENTS OF EQUATION 

2 1 E= <: N*R2-K*J > / ( N*L-.J -12 > 
220 A=<K-B*.J>/N 

230 PRINT 

240 PRINT "F<K) =";EXP(A>;"* Kt";B 

249 REM - CALCULATE REGRESSION ANAL VS IS 

250 J=B* < R2-.J*K/N > 
260 M=M-Kt2/N 

270 K=M-J 
280 PRINT 
290 R2=.T/M 

300 PRINT "COEFFICIENT OF "; 

301 PRINT "DETERMINATION" 

305 PRINT "<Rt2> =";R2 

306 PRINT 

310 PRINT "COEFFICIENT OF "; 

311 PRINT "CORRELATION =";SQRc;R2> 
315 PRINT 

320 PRINT "STANDARD ERROR OF "; 

325 PRINT "ESTIMATE = ";SGR<K/(N-2V> 

326 PRINT 
330 PRINT 

339 REM - ESTIMATE V-COORDINATE FROM ENTERED k-COORDINATE 

340 PRINT "INTERPOLATION- "; 

341 PRINT "<K=0 TO END>" 
350 PRINT "K ="; 

360 INPUT X 

369 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

370 IF H=& THEN 410 

380 PRINT "V =";E><P<A>*XtE 
390 PRINT 



399 REM - RETURN FOR MORE DATA 

400 GOTO 350 
410 END 
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Exponential Regression 



This program finds the coefficients of an equation for an exponential curve. The equation is in the following 

form: 

f{x)= aebx 
where a and b are the calculated coefficients. 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and / -coordinates for known data points. Once the curve has been fitted you may 
predict values of y for given values of x . 

Example: 

The table below shows the number of bacteria present in a culture at various points in time. Rt an exponen- 
tial curve to the data and estimate the number of bacteria after 7 hours. 



number of hours 





1 


2 


3 


4 


5 


6 


number of bacteria 


25 


38 


58 


89 


135 


206 


315 



EXPONENTIflL REGRESSION 

NUMBER OF KNOWN POINTS? 7 
XA' OF POINT 1 ? 0.25 
OF POINT 2 ? 1.38 
X..V OF POINT 3 ? 2.58 
X.V OF POINT 4 ? 3.. 89 
K..V OF POINT 5 ? 4. 135 
X.V OF POINT 6 ? 5.206 
X.V OF POINT 7 ? 6.315 

fl = 24.9616634 
B = .422375081 

COEFFICIENT OF DETERMINATION 
<R12'? = .999993572 

COEFFICIENT OF CORRELATION = .999996779 
STflNDflRD ERROR OF ESTIMATE = 2.53424554E-03 

INTERPOLATION: <X=0 TO END> 

l. —■o -? 
rt — : 1 

V= 480.086716 

K =7 e 
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10 PRINT "nEXPONENTIflL REGRESSION" 
20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 

40 INPUT N 

50 .J=0 

60 K=0 

70 L=0 

80 M=0 

90 R2=0 

33 REM - ENTER COORDINATES OF DflTfl POINTS 

100 FOR 1=1 TO N 

110 PRINT "X.V OF POINT"; I; 

120 INPUT X.V 

129 REM - flCCUMULflTE INTERMEDIATE VALUES 

130 V=LOG<V> 
140 J=J+X 
150 K=K+V 
160 L=L+X12 
170 M=M+V12 
180 R2=R2+X*V 
190 NEXT I 

199 REM - CALCULATE AND PRINT COEFFICIENTSOF EQUATION 

200 B=<:N*R2-K#J>/<N*L-Jt2> 
210 A=<K-B*J>/N 

220 PRINT 

230 PRINT" A =";EXP<A) 
240 PRINT "B =";B 

249 REM - CALCULATE REGRESSION TABLE VALUES 

250 J=B*<R2-J*K/N> 
260 M=M-Kt2/N 

270 K=M-J 
280 PRINT 
290 R2=J/M 

300 PRINT "COEFFICIENT OF "; 

301 PRINT "DETERMINATION" 

305 PRINT "(R-hS) =";R2 

306 PRINT 

310 PRINT "COEFFICIENT OF "; 

311 PRINT "CORRELATION ="; 

315 PRINT SQR<R2> 

316 PRINT 

320 PRINT "STANDARD ERROR OF "; 

321 PRINT "ESTIMATE =";SQR<K/<N-2>> 
326 PRINT 

330 PRINT 

339 REM - ESTIMATE V~VALUE FROM ENTERED X-VALUE 

340 PRINT "INTERPOLATION- "; 

341 PRINT "<X=0 TO END)" 
350 PRINT "X ="; 

360 INPUT X 

370 IF X=0 THEN 419 

380 PRINT "V =";EXP<A>#EXP<B*X> 

390 PRINT 

399 REM - RETURN FOR MORE DATA 

400 GOTO 350 
410 END 
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System Reliability 



This program calculates the reliability of an operating system that is subject to wearout and chance 
You must enter the system's operating time and the wearout time and failure rate of each component. 



Example: 

Compute the reliability of a .computer system operating for 1000 hours with the components shown ii 
list below. 





wearout (hrs.) 


failure 


CPU 


15,000 


.00020 


terminal 


3,000 


.00010 


disk 


3,000 


.00015 


printer 


1,500 


.00015 



SVSTEM RELIflBILITV 

ao END PROGRAM ENTER 0> 

OPERATING TIME IN HOURS? 1060 

NUMBER OF COMPONENTS? 4 

COMPONENT 1 

AVERAGE WEAROUT TIME? 15000 
AVERAGE FAILURE RATE? .0002 

COMPONENT 2 

AVERAGE WEAROUT TIME? 3000 
AVERAGE FAILURE RATE? .0001 

COMPONENT 3 

AVERAGE WEAROUT TIME? 3000 
AVERAGE FAILURE RATE? .00015 

COMPONENT 4 

AVERAGE WEAROUT TIME? 150© 
AVERAGE FAILURE RATE? .00015 

SVSTEM RELIABILITY = .135-335233 

OPERATING TIME IN HOURS? 



10 PRINT ".TSVSTEM RELIABILITV" 
20 PRINT 

30 PRINT "<T0 ENB PROGRAM ENTER 0>" 
40 PRINT "OPERATING TIME IN HOURS"; 
50 INPUT T 

59 REM - TEST FOR END OF PROGRAM 

60 IF T=0 THEN 230 

70 PRINT "NUMBER OF COMPONENTS".: 
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80 INPUT N 
90 Z=0 

39 REM - ENTER DflTfl FOR EACH COMPONENT 
100 FOR 1=1 TO N 
105 PRINT 

110 PRINT "COMPONENT";! 

120 PRINT "flVERflOE WEflROUT TIME"; 

130 INPUT W 

140 PRINT "fiVERflGE FAILURE RATE"; 
150 INPUT F 

159 REM - INCLUDE EACH COMPONENT IN RELIABILITV 

160 .Z=2+l/W+F 
170 NEXT I 
180 PRINT 

189 REM - CALCULATE RELIABILITV. PRINT 

190 Z=EXP<-Z#T> 

200 PRINT "SVSTEM RELIABILITV =";Z 
210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 
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Average Growth Rate, Future Projections 



This program calculates the average growth rate of a company, then projects figures for future years. The 
growth rate and projections could be computed for any aspect of a company, such as sales, earnings, number of 
employees, or patronage. You must provide established figures for a past series of years. 

The dimension statement at line 30 limits the number of past figures you may enter. Any need to alter this 
limit should be done in the following manner: 

30 DIM S(/V) 
where N = the number of years for which figures are known. 



Example: 

The bon-owing records for Claremount County Ubrary are tabulated in the graph below. VVhat is its average 
growth rate? How many books can it expect to lend in its tenth and twentieth years of service? 



74 



70 
60 

1 
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30 DIM SO) 
RUN 

flVERflGE GROWTH RATE. FUTURE PROJECTIONS 
NUMBER OF VERRS FIGURES ESTABLISHED? 9 



VEflR 


1 


? 


26 


VEflR 


2 


? 


35 


VEflR 


3 




42 


VEflR 


4 




45 


VEflR 


5 


? 


41 


VEflR 


6 


? 


51 


VEflR 


7 




60 


VEflR 


8 


? 


62 


VEflR 


9 


? 
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flVERflGE GROWTH RATE = 11.88 K 
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< ENTER TO END PROGRAM) 
PROJECTED SALES FOR VEfiR? 19 

= 81.29 

PROJECTED SALES FOR VERR? 20 

— 249.88 

PROJECTED SALES FOR VEAR? © 



10 PRINT ".TRVERAGE GROWTH RATE."; 
15 PRINT " FUTURE PROJECTIONS" 
20 PRINT 

30 d!m S<2l> ^^^^'^ ^ ™ ^^^^^^ "^^^^^ FIGURES ARE KNOWN 

40 PRINT "NUMBER OF VEARS FIGURES"; 

45 PRINT " ESTABLISHED"; 

50 INPUT N 

60 FOR 1=1 TO N 

70 IF I>1 THEN 100 

80 PRINT "FIGURE: VEAR"; I; 

90 GOTO 110 

100 PRINT " VEAR"; I; 

110 INPUT S<I> 
120 NEXT I 

129 REM - INITIALIZE VARIABLES FOR FIRST VEAR 

130 T=L0G<:S<1>> 
140 V=0 

149 REM - LOOP FOR REMAINING VEARS OF HISTORV 

150 FOR 1=2 TO N 
160 L=LOGCSa>> 
170 T=T+L 

180 V=V+<I-1>#L 
190 NEXT I 

199 REM - CALCULATE AVERAGE GROWTH RATE 

200 R=6*<2*V/<N-1>-T.V(N>/<:N+1> 

210 g=exp<:a>-i 

219 rem - round off. print 

220 PRINT "AVERAGE GROWTH RATE ="; 
225 PRINT INT <:G#1 0000+. 5>/100;"X" 
230 PRINT 

239 REM - CALCULATE AVERAGE ANNUAL GROWTH FACTOR 

240 S=EXP < T/N- A* C N- 1 > /2 > 

250 PRINT "<ENTER TO END PROGRAM)" 

259 REM - INPUT VEAR NUMBER 

260 PRINT "PROJECTED SALES FOR VEAR"; 
270 INPUT VI 

279 REM - TEST FOR END OF PROGRAM 

280 IF V1=0 THEN 320 

289 REM - CALCULATE PROJECTED SALES FIGURE 

290 Sl=S*<l+G>t<Vl-l> 

299 REM - ROUND OFF. PRINT 

300 PRINT TAB<28>;"="; 

305 PRINT INT<Sl*100+.5)/100 

309 REM - RETURN FOR MORE DATA 

310 GOTO 260 
320 END 
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Federal Withholding Taxes 



This program calculates the amount of federal income and PICA taxes withheld from one's earnings. You 
must provide employee information as to marital status, the number of exemptions claimed, the amount of taxa- 
ble pay, and year-to-date taxable pay. 

The number of pay periods per year is established at line 80. If your pay period is other than monthly, you 
must alter this statement to set N equal to the number of pay periods per year. 

There is a considerable amount of tax information which may change from year to year. The values listed in 
the data tables at lines 30 and 40 are among those that may need periodic revision. The annual values for single 
and married persons should be compared each year with those listed in Table 7 of the current IRS Circular E. 

The annual PICA rate, the RCA cutoff amount and the annual amount of withholding allowance may also 
need revision. The values established at lines 50, 60 and 70 should also be compared to those listed in the current 
IRS circular. 

Annual rates and cutoffs are used in-espective of your actual pay period frequency. The program automat- 
ically adjusts them to match your pay period. 

Examples: 

Judy earns $900.00 per month. The payroll clerk is figuring her March paycheck. Judy is single and claims 
only herself as a dependent. What amounts are withheld from her paycheck? 

Dr. Berger has earned $1,408.75 this month. So far this year he has grossed $20,188.72. He is married and 
claims four dependents. What amounts will be withheld this month for the federal government? 



FEUERRL WITHHOLIUNG TAXES 



mRITflL STATUS <1=SINGLE. 2=MARRIED>? 1 

WITHHOLDING TAX EXEMPTIONS? 1 

TAXABLE PAV? 960 

VTD TAXABLE PAV? 1880 

TAXABLE = * 900 

INCOME TAX = $ 128.5 

PICA = * 55.17 

MORE DATA a==VES.. 0=NO>? 1 

MARITAL STATUS a =S INGLE. 2==MARRIED>? 2 

WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAV? 1408.75 

VTD TAXABLE PAV? 23750.03 

TAXABLE = $ 1408.75 

INCOME TAX = * 152.09 

PICA = * 

MORE DATA <1=VES. 0=NO)? 
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10 PRINT "."FEDERAL WITHHOLDING TAXES" 
20 PRINT 

27 REM - THE FOLLOWING DFITfl CONTAINS THE 1979 TAX TABLES FROM IRS 

28 REM - CIRCULAR E.. PERCENTAGE METHOD. TABLE 7 < ANNUAL PAVROLL) 

29 REM - FOR SINGLE PERSONS 

30 DATA 15.1 420 ..18. 330© .21. 680© . 26 . 1 0200 . 30 . 1 4200 . 34 . 1 7200 . 39 . 22500 

39 REM - FOR MARRIED PERSONS 

40 DATA 1 5 . 2400 . 1 8 . 6600 .21.1 0900 . 24 . 1 5000 . 28 . 1 9200 . 32 . 23600 . 37 . 28900 

49 REM - F1=FICA RATE AS DECIMAL 

50 Fl=..0613 

59 REM - F2=FICA CUTOFF AMOUNT 

60 F2=22900 

69 REM •- W1=AM0UNT OF WITHHOLDING ALLOWANCE < ANNUAL PAYROLL) 

70 Wl=1000 

79 REM - N=NUMBER OF PAV PERIODS PER VEAR 

80 N=12 

89 REM - LOAD THE TAX TABLE ARRAVS FROM DATA TABLES 

90 DIM FK28> 

100 FOR 1=1 TO 28 
110 READ Fia> 
120 NEXT I 
130 PRINT 

139 REM - STATEMENTS 140 TO 210 REQUEST PERTINENT EMPLOYEE DATA 

140 PRINT "MARITAL STATUS <1=SINGLE. 

141 PRINT " 2=MARRIED>"; 
150 INPUT S 

160 PRINT "WITHHOLDING TAX EXEMPTIONS"; 
170 INPUT W 

180 PRINT "TAXABLE PflV"; 
190 INPUT P 

199 REM - V=TOTAL TAXABLE PAV THIS VEAR. EXCLUDING CURRENT PAYCHECK 

200 PRINT "YTD TAXABLE PAV"; 
210 INPUT V 

219 REM - ANNUALIZE CURRENT TAXABLE PAY; ADJUST FOR EXEMPTIONS 

220 G=P*N-W1*W 
230 T1=0 • 

239 REM - CALCULATE INCOME TAX 

240 FOR 1=2 TO 7 
250 X=2* I + 1 4* < S- 1 > - 1 

260 IF G<=F1<:X-1> THEN 330 

270 IF G>F1<X+1>THEN 30© 

280 T1=T1+<G-F1 <X-1 >>*F1 <X-2>/100 

290 GOTO 330 

300 T1=T1 + <F1 <X+1 >-Fl <:X-1 > ;)*F1 t;X~2>/100 
310 NEXT I 

320 Tl=Tl + <G-Fl<X+i:>>*Fl<X>/100 

329 REM - ROUND OFF TO NEAREST CENT 

330 Tl=INTaTl/N>*100+.5>/100 
340 T2=0 

349 REM - CALCULATE PICA 

350 IF Y>F2 THEN 400 
360 IF V+P>F2 THEN 390 

370 T2= I NT < < P*F 1 > * 1 00+ . 5 > / 1 m 
380 GOTO 400 

389 REM - ROUND OFF TO NEAREST CENT 

390 T2= I NT < ( C F2- Y ) *F 1 ) * 1 00+ . 5 > / 1 00 
400 PRINT "TAXABLE = $":.P 
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410 PRINT "INCOME TAX = *";T1 
420 PRINT "FICfl = $".:T2 
430 PRINT 

439 REM - RESTART OR END PROGRAM? 

440 PRINT "MORE DATA <1=VES. 0=NO> 
450 INPUT S 

460 IF S=l THEN 130 
470 END 



Tax Depreciation Schedule 



This program tabulates annual depreciation amounts. You can use the sum of digits method or any declin- 
ing balance percentage method. You must know the purchase price (initial value), salvage value at the end of the 
depreciable life, and the life of the item being depreciated. If you are doing declining balance depreciation, you 
must also know the percentage method. 

Examples: 

The Miracle Corporation put a new roof on their office building for $27,000.00. They expect to replace it in 
nine years. What would the annual depreciation amounts be using the sum of digits? 

Heavenly Bank built a new home office building for $1.2 million. Run a tax depreciation schedule on the 
building using 150% declining balance method with a 30 year life. Assume a salvage value of $250,000. You will 
notice that the depreciation falls below straight line ($31,666.67) per year) at year nine. 

TflK DEPRECIflTION -SCHEDULE 

PURCHfiSE PRICE? 27008 

SflLVRGE 'v'flLUE? 

LIFE IN VEfiRS? 9 

ENTER 1 FOR SUM OF B I GITS.. 

2 FOR DECLINING BflLflNCE? 1 



SUM OF DIGITS TfiX DEPRECIflTION 
PRICE $ 27Cii00 
SflLVflGE VALUE * 8 
NET DEPRECIATED $ 27008 
LIFE 9 VERRS 



VEflR 


DEPRECIflTION 


BflLflNCE 


1 


5400 


21600 


*"* 


4800 


16800 




4200 


12600 


4 


3600 


9000 


5 


3000 


6000 


6 


2400 


3600 


i' 


1800 


1800 


o 


1200 


600 


9 


600 






MORE DATA? <1=VES.. 0=NO>? 1 

PURCHASE PRICE? 1200000 
SALVAGE VALUE? 250000 
LIFE IN VEARS? .30 
ENTER 1 FOR SUM OF DIGITS.. 
2 FOR DECLINING BALANCE? 2 
METHOD IN K? 150 
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DECLINING EflLFlNCE TAX 
riEPRECIflTION 





PRICE i 


^- 1200000 




SFlLVflGE VALUE 


$ 250000 




NET DEPRECIflTED 


$ 950000 




LIFE 30 


VEFlRS 




i'lC 1 HUil 


1 cr.(S V 
1 -.'tJ I-. 


VEflR 


DEPRECIRTIuN 


i>HLnNLt 


1 


4i-5titi 




2 


451ci5 


oDrof -J 


3 


42868 . 75 


oIhDWo. ii.D 


4 


40725.31 


1- 7378tf. 94 


5 


38689.05 


■••35091.89 


6 


36754. 59 


6983o I- . 


"? 

( 


34916.86 


663420. 44 


8 


33171 . 02 


630249. 4ii: 


y 


o 1 D 1 . 1 




10 


■■>QQ--i£" 0<^ 


JDOOt'B. J. 


1 1 




•j^yoDtf . 1 






□ i C'-JS'TC . X 


1 J 


ciSbbi- . 1 


4o f D !• •_' 


14 


24383. 1-5 


4b.J2yi. 25 


15 


J 1 64 . 56 


4401<i.6. by 


16 




4 1 o 1 <iti . C'b 


1 f' 


20906. Bid 


•:>9i- 214. J4 


18 


I9y60. 1-2 


-if 1- 35 J. 6c: 


13 


J. &o6 1- . 6p 


oDd4oD. j4 


20 


17924. 3 


34056 1 . 64 


21 


li- ti2b . ti8 


32J5JJ. 56 




Ibl 1- 6. 68 




23 


15367.84 


ii'9i9S9. 04 


24 


14599. 45 


277J89. 59 


c:5 


l i8t>9. 4y 


{dooz><c\}, 1 1 


sit. 


Ul 1- 6. 01 


ii..i0o44. 1 


27 


12517.2 


237826. 9 


28 


11891.34 


225935.56 


29 


11296.78 


214638.78 


30 


10731.94 


203906.84 



MORE DflTfl? a=VES..0=NO>? 



10 PRINT DEPRECIATION SCHEDULE" 

20 PRINT 

29 REM - ENTER INITIAL VALUE AND ROUND OFF TO NEAREST CENT 

30 PRINT "PURCHASE PRICE"; 
40 INPUT V 

50 V= I NT <: V* 1 00+ . 5 > / 1 00 

59 REM - ENTER END VALUE AND ROUND OFF TO NEAREST CENT 

60 PRINT "SALVAGE VALUE"; 
70 INPUT S 

80 S=INT(S*100+.5>/100 

89 REM - COMPUTE AMOUNT TO DEPRECIATE 

90 D=V-S 

99 REM - ENTER LENGTH OF 'DEPRECIATION 
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180 PRINT "LIFE IN VEflRS"; 
110 INPUT V 

119 REM - CHOOSE DEPRECIflTION METHOD 

120 PRINT "ENTER 1 FOR SUM OF IHGITS.. " 
125 PRINT "2 FOR DECLINING BflLflNCE".: 
130 INPUT K 

140 IF K=2 THEN 450 
150 IF KOI THEN 120 

158 REM - BV SUM OF DIGITS METHOD 

159 REM - Rl IS THE CUMULATIVE AMOUNT DEPRECIATED 

160 R1=0 
170 N=l 

260 PRINT TAB<4>.:".1 SUM OF DIGITS TAX "; 

265 PRINT "DEPRECIATION" 

270 PRINT TAB'; 14); "PRICE $".:V 

280 PRINT TAB < 7 >.; "SALVAGE VALUE *".;S 

290 PRINT TAB < 5); "NET DEPRECIATED $".: 

291 PRINT V-S 

300 PR I NT TAB < 1 3 > .: " L I FE " .: V ; " VE ARS " 
310 PRINT 

320 PRINT "VEAR DEPRECIATION"; 

321 PRINT " BALANCE" 

322 N=ll 

325 FOR 1=1 TO V 

326 REM - CHECK FOR FULL SCREEN <23 LINES) 

327 IF N/23=INT<N/23> THEN GOSUB 80© 

329 REM - COMPUTE DEPRECIATION AND ROUND OFF TO NEAREST CENT 

330 R=2*D* ( V- 1 + 1 > / < < V+ 1 > * V > 
340 R= I NT < R* 1 00+ . 5 > 1 00 

349 REM - ACCUMULATE DEPRECIATION 

350 R1=R1+R 

359 REM - COMPUTE BALANCE TO DEPRECIATE 

360 B=D-R1 

369 REM - TEST FOR COMPLETE DEPRECIATION 

370 IF E>=0 THEN 410 
380 R1=R1+R 

400 B=0 

410 PRINT I;" ";R..B 
420 N=N+1 
430 NEKT I 
440 GOTO 700 

448 REM - BV DECLINING BALANCE METHOD 

449 REM - ENTER DECLINING BALANCE PERCENT 

450 PRINT "METHOD IN K" } 
460 INPUT M 

469 REM - CONVERT PERCENT TO DECIMAL 

470 M=M/100 

479 REM - N COUNTS THE LINES PRINTED ON EACH PAGE 

489 REM - R IS THE AMOUNT TO DEPRECIATE 

490 R=D 

500 PRINT "□"; 

570 PRINT TAE';8>; "DECLINING BALANCE "; 
i=;"7 2 F'RINT "TA'^"^'" 

575 PR I NT TAB V 1 2 > ; " DEPREC I AT I ON " 
580 PRINT TAB( 14); "PRICE $";V 
590 PRINT TAB(7>; "SALVAGE VALUE f";S 
600 PRINT TAB<5>;"NET DEPRECIATED $" i 
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601 PRINT V-S 

610 PRINT TflBa3).;"LIFE";V;"VEflRS" 
620 PRINT TflB< 13); "METHOD ";M*100; 
630 PRINT 

640 PRINT "VEflR DEPRECIATION"; 

641 PRINT " BflLFINCE" 

642 PRINT 

643 N=ll 

645 FOR 1=1 TO V 

f.-4c, REiv] _ COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT 
650 Rl = INT<:<R*M/V>*100+.5>/100 

659 REM - ACCUMULATE REMAINING BALANCE 

660 R=R-R1 

670 PRINT I;" ";R1..R 
675 N=N+1 

677 REM - CHECK FOR FULL SCREEN <23 LINES) 
630 IF N/23=INT<N/23> THEN GOSUB 808 
690 NEKT I 
700 PRINT 

709 REM - RESTART OR END PROGRAM? 

710 PRINT "MORE DATA? a=VES. 0=NO>".: 
720 INPUT >i 

730 IF K=l THEN 20 
740 END 



171 



Check Writer 



This program prints a check. You must provide the date, amount and payee of the check. The program 
translates the date and amount to words and prints providing spacing within the check. 

You should regard the program listed below as a sample of a check-writing program. Very few checks will 
conform exactly to the spacing provided in this program. The method of translating words from numbers is 
generally applicable. Spacing should be altered to conform to your own check format. 

File commands to open and close the flow of data to the printer are located at statement numbers 250 and 625 
respectively. The PRINT statements between 250 and 625 do not need to be replaced with PRINT# when using the 
CMD command at 250. 

When the program asks the question READY TO PRINT CHECK? it is prompting you to insert a 
blank check in your printing device. The check should be set one line above the line on which the date is to be 
printed. 

Once the check is set up, key RETURN (no other entry is required) and the check will be printed. 
Example: 

Among the checks that Miracle Corporation must write are one to Osborne & Associates for $4975.89 and 
one to Freida Alexander for $103.75. Print the checks using the computer. 

CHECK WRITER 

DATE CMMDDVV)? 36788 

aO END PROGRAM EHTER 'END^> 

FIRST NAME OF PAVEE? OSBORNE/ 

LAST NAME OF PAVEE? MCGRAW-HILL 

AMOUNT OF CHECK? 49?.5.89 

READV TO PRINT CHECK? 



HEAVENLY BANK 


NO. 328 


EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE, CA 94601 


MARCH 7 19 80 

AMOUNT $ 4975.89 




PAY TO THE ORDER OF OSBORNE/MCGRAW-H I LL 




FOUR THOUSAND NINE HUNDRED SEVENTY -FIVE 


DOLLARS AND 89 CENTS 


MIRACLE CORPORATION 




1111 COUNTRY ROAD 
COUNTRYVILLE, CA 94132 


1328252158 
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FIRST NAME OF PflVEE? FREIDfl 
LAST HflME OF PfiVEE? ALEXflNDER 
AMOUNT OF CHECK? 163.75 
READV TO PRINT CHECK? 



HEAVENLY BANK 




NO. 382 


EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE, CA 94601 


MARCH 7 

AMOUNTS 103.75 


19 80 


PAY TO THE ORDER OF FREIDA ALEXANDER 






ONE HUNDRED THREE DOLLARS AND 75 CENTS 


MIRACLE CORPORATION 






1111 COUNTRY ROAD 
COUNTRYVILLE, CA 94132 






1328252158 



FIRST NAME OF PAYEE? END 



10 PRINT "XHECK WRITER" 
•■>0 pj^ J ji^j 

30 Df=iT A " ONE " .. " TWO " .. " THREE " .. " FOUR " 

31 DATA "FIVE". "SIX". "SEVEN". "EIGHT" 

40 DATA "NINE". "TEN". "ELEVEN". "TWELVE" 

41 DATA "THIRTEEN". "FOURTEEN" 

42 DATA "FIFTEEN". "SIXTEEN" 

50 DATA "SEVENTEEN". "EIGHTEEN" 

5 1 DATA " N I NETEEN " . " TWENT V " . " TH I RT V " 

60 DATA " FORT V " . " F I FT V " . " S I XT V " 

6 1 DATA " SEVENTY " ."EI GHTY " . " N I NET V " 

70 DATA " JANUARY " . " FEBRUARY " . " MARCH " 

7 1 DATA " APR I L " . " MAY " . " JUNE " . " JULY " 

80 DATA " AUGUST " . " SEPTEMBER " . " OCTOBER " 

81 DATA "NOVEMBER". "DECEMBER" 

89 REM - ENTER DATE WITHOUT COMMAS; DAY AND YEAR MUST CONTAIN TWO DIGITS 

90 PRINT "DATE <MMDDYY>".: 
100 INPUT D 

110 PRINT " (TO END PROGRAM "; 

111 PRINT "ENTER 'END',^ " 

120 PRINT "FIRST NAME OF PAYEE"; 
130 INPUT F*: PRINT 

139 REM - END PROGRAM? 

140 IF F$="END" THEN 790 

150 PRINT "LAST NAME OF PAYEE"; 

160 INPUT Lf: PRINT 

170 PRINT "AMOUNT OF CHECK"; 
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180 INPUT fl- PRINT 

189 REM - INSERT BLANK CHECK IN PRINTING DEVICE.. KEV <RETURN> WHEN REflDV 

190 PRINT "REflDV TO PRINT CHECK?"; 

200 GET Z$- IF Z$="" GOTO 200 

201 PRINT 

202 PRINT 

203 PRINT 

204 PRINT 

209 REM - BREAK ENTERED DATE NUMBER INTO MONTH. DflV. VEflR FIGURES 

210 D1=INT<D/10000> 

220 D2=INT< <D-D1*10000.>/100> 
230 D3 - INT<D-<D1*100+D2>*100> 
235 D3=D3+1900 

239 REM - GOTO CORRECT MONTH IN DATA TABLE 

240 RESTORE 

241 FOR K= 1 TO 27+Dl 

242 READ X* 

243 NEXT K 

250 0PEN4.4-CMD4 

259 REM - PRINT DATE 

260 PRINT TAB<20> .: X$.: D2.: " . " .: D3 

269 REM - PRINT AMOUNT TWICE.: FIRST TIME FOR SHADED BOX 

270 PRINT TAB<24); "$";A 
280 PRINT TAB(25>;A 
290 PRINT 

300 PRINT F$}" ";L$ 
310 PRINT 

319 REM - AMOUNT OF CHECK LEGITIMATE? 

320 IF A<=0 THEN 77© 
330 A1=A 

339 REM - AMOUNT IN THE THOUSANDS? 

340 N1=INT<:A1/1E3) 

349 REM - CAN^T PRINT FOR AMOUNT OVER $99999.99 

350 IF Nl>99 THEN 770 
360 IF N1=0 THEN 390 
370 GOSUB 640 

380 PRINT "THOUSAND "; 
390 A1=A1-N1*1E3 

399 REM - AMOUNT IN THE HUNDREDS^ 

400 N1=INT<A1/100.> 
410 IF N1=0 THEN 440 
420 GOSUB 640 

430 PRINT "HUNDRED ".; 
440 A1=A1-N1*100 

449 REM - AMOUNT IN THE ONES OR TENS"^ 

450 Nl=INT<Ai;' 

460 IF N1>0 THEN 49© 

470 IF A>=1 THEN 500 

480 GOTO 510 

490 GOSUB 640 

500 PRINT "DOLLARS ".; 

510 A1=A1-N1 

519 REM - ANV CENTS? 

520 IF AK.01 THEN 600 

529 REM - IF AMOUNT IS CENTS ONLY.: DON'T PRINT -AND' 

530 IF A<:i THEN 55© 
540 PRINT "AND"; 
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550 fll=INT<fll#100>+. 5/100 

559 REM - CENTS ARE PRINTED IN NUMERIC FORM 

560 PRINT INT<fil); "CENTS" 

569 REM - SPACE OFF OF CHECK 

570 PRINT 
580 PRINT 
590 PRINT 
600 PRINT 
610 PRINT 
620 PRINT 

625 PRINT#4:CL0SE4 

629 REM - RESTART PROGRAM 

630 GOTO 120 

639 REM - SUBROUTINE TO GET WORDS FOR NUMBERS 

640 IF NK21 THEN 730 

650 RESTORE 

651 FOR K=l TO <Nl-20>/10+20 

652 READ K$ 

653 NEXT K 
670 PRINT X$} 

680 A3=N1-INT<N1/10)*10 
690 IF A3=0 THEN 760 
700 PRINT "-"; 

710 RESTORE 

711 FOR K=l TO A3 

712 READ K$ 

713 NEXT K 
720 GOTO 750 

730 RESTORE 

731 FOR K=l TO Nl 

732 READ X* 

733 NEXT K 
750 PRINT x$r' 

759 REM - END OF SUBROUTINE 

760 RETURN 

770 PRINT. "##***VOID#****" 

780 GOTO 570 
790 END 



Recipe Cost 



This program calculates the cost and the cost per serving of a single recipe. For each ingredient you must 
provide the purchase price, the amount purchased, the amount used in the recipe, and the number of recipe units 
per purchase unit. 

Example: 

Listed below is a recipe for strawberry shortcake. Calculate the cost of the recipe and the cost per serving. 
What would the cost per serving be if one cake serves 12? The conversion factors and price per ingredient are 
supplied. 

Strawberry Shortcake — 8 servings 

3 c. flour 2.5 c./ib. $1.59 5 lb. 

3*74 tsp. baking powder 15 tsp./oz. .43 4 oz. 

'A c. sugar 2 c./lb. 1.24 5 lb. 

1 V4 tsp. salt 6 tsp./oz. .29 1 lb. 

V2C. butter 2 c./lb. 1.49 1 lb. 

1 egg 12/doz. .75 1 doz. 

c. milk 4 c./qt. .40 1 qt. 

3 pts strawberries .49 1 pt. 

Vi pt. whipping cream .59 V2 pt. 



RECIPE COST 

NUMBER OF INGREDIENTS? 9 
INGREIHENT 1 : 

STORE COST FOR BULK UNIT? 1.59 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2.5 
NUMBER OF RECIPE UNITS NEEDED? 3 

INGREDIENT 2 : 

STORE COST FOR BULK UNIT? .43 
NUMBER OF UNITS IN BULK? 4 
RECIPE UNITS PER BULK UNIT? 15 
NUMBER OF RECIPE UNITS NEEDED? 3.25 

INGREDIENT 3 : 

STORE COST FOR BULK UNIT? 1.24 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2 
NUMBER OF RECIPE UNITS NEEDED? .25 

INGREDIENT 4 : 

STORE COST FOR BULK UNIT? .29 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 96 
NUMBER OF RECIPE UNITS NEEDED? 1.25 
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INGREDIENT 5 : 

fiTOPE COST FOR BULK UNIT? 1.49 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 26 
NUMBER OF RECIPE UNITS NEEDED? .5 

INGREDIENT 6 ■ 

STORE COST FOR BULK UNIT? .75 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 12 
NUMBER OF RECIPE UNITS NEEDED? 1 

INGREDIENT 7 : 

STORE COST FOR BULK UNIT? .4© 

NUMBER OF UNITS IN BULK? 1 

RECIPE UNITS PER BULK UNIT? 4 

NUMBER OF RECIPE UNITS NEEDED? .6666S67 

INGREDIENT 8 = 

STORE COST FOR BULK UNIT? .49 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 3 

INGREDIENT 9 : 

STORE COST FOR BULK UNIT? .59 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 1 

NUMBER OF SERVINGS? 8 

Ti'iTfiL COST FOR ONE RECIPE = * 3 
COST PER SERVING = t .38 

MORE OR FEWER SERVINGS (1=VES. 0=NO>? 1 
NUMBER OF SERVINGS? 12 

TOTAL COST FOR ONE RECIPE = * 3 
COST PER SERVING = * .25 

MORE OR FEWER SERVINGS <:i=VES. 0=NO>? 



10 PRINT "H^ECIPE COST" 
15 PRINT 

19 REM - STflTMENTS 38 TO 180 REQUEST USER INPUT 

20 PRINT "NUMBER OF INGREDIENTS"; 
30 INPUT N 

39 REM - LOOP TO REQUEST DflTfl FOR EACH INGREDIENT 

40 FOR 1=1 TO N 
50 PRINT 

60 PRINT "INGREDIENT" ; I ; " : " 

70 PRINT "STORE COST FOR BULK UNIT"; 

80 INPUT C 

90 PRINT "NUMBER OF UNITS IN BULK"; 
100 INPUT U 



110 PRINT "RECIPE UNITS PER "; 

111 PRINT "BULK* UNIT"; 
120 INPUT F 

130 PRINT "NUMBER OF RECIPE ": 

131 PRINT "UNITS NEEDED"; 
140 INPUT R 

149 REM - SUM COST OF EfiCH INGREDIENT PER AMOUNT USED 

150 P=P+C/U/F*R 
160 NEXT I 

165 PRINT 

170 PRINT "NUMBER OF SERVINGS"; 
180 INPUT S 
190 PRINT 

199 REM - ROUND OFF COSTS TO NEAREST CENT. PRINT RESULTS 

200 PRINT "TOTAL COST FOR " ; 

201 PRINT "ONE RECIPE = $"; 
205 PRINT INT<P*100+.5>/100 

210 PRINT "COST PER SERVING - $" ; 
215 PRINT INT«:P/S*100+.5>/100 
220 PRINT 

229 REM - CALCULATE ALTERNATIVE PRICE PER SERVING 

230 PRINT "MORE OR FEWER SERVINGS "; 

231 PRINT "C1=VES.. 0=NO>"; 
240 INPUT N 

250 IF N=l THEN 170 
260 END 



OPTION 



As you become familiar with the operation of this program you may wish to shorten it by entering the infor- 
bdiw" ^^^^ ingredient on one line. The program changes necessary are listed following the example 

Example: 

Calculate the cost per serving of Strawberry Shortcake in the previous example when it is served without 
cream. 



RECIPE COST 

NUMBER OF INGREDIENTS? 8 
INGREDIENT 1 ? 1 . 59.. 5.2. 5.3 
INGREDIENT 2 ? .43.. 4.. 15.3.25 
INGREDIENT 3 ? 1.24. 5. 2.. 25 
INGREDIENT 4 ? .29.1.96.1.25 
INGREDIENT 5 ? 1.49. 1.2.. 5 
INGREDIENT 6 ? .75.1.12.1 
INGREDIENT 7 ? .40. 1.4. .6666667 
INGREDIENT 8 ? .49.1.1.3 

NUMBER OF SERVINGS? S 

TOTAL COST FOR ONE RECIPE = $ 2.41 
COST PER SERVING = $ .3 

MORE OR FEWER SERVINGS <1=VES. 0=NO>^ 1 
NUMBER OF SERVINGS? 12 



178 



TOTAL COST FOR ONE RECIPE = $ 2.41 
COST PER SERVING = $ .2 

MORE OR FEWER SERVINGS <1=VES. 0=NO>? 8 



1 REM - OPTION 55-70 
18 PRINT "□RECIPE COST" 



40 FOR 1=1 T0 N 
50 PRINT 

55 REM - ENTER CAi..F.R 

56 REM - WHERE C=COST FOR BULK UNIT 

REM - U=NUMBER UNITS IN BULK UNIT 

58 REM - F=RECIPE UNITS PER BULK UNIT 

=i9 pEjvi _ R=NUMBER RECIPE UNITS CRLLED FOR 

60 PRINT "INGREDIENT"; I ; 
70 INPUT CJJ.F..R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 



260 END 



Survey Check (Map Check) 



Courtesy: Robert Irving 
Northridge, 
California 



This program calculates the error of closure and area of a plot for which a traverse of the perimeter is 
available. The program will also calculate how far North and East the end of an open traverse is from its 
ongin (the Northing and Easting). The local coordinates of the origin can be entered for an open traverse 
Negative values of Northing and Easting are South and West respectively, of the 0,0 origin of the survey.' 

The individual legs of the traverse may be either straight lines or arcs of circles. To compute the tra- 
verse you must have the bearing and length of each straight leg. You also need the radius, bearing of 
chord, and length of chord (or radius, arc measure, and bearing of a tangent) for each curved leg. 

For a closed survey, pick any intersection of legs as a starting point, and number the lines and arcs 
starting with one, m a c/ocArmse direction around the perimeter. If any arc is 180 degrees or more it must be 
broken into smaller arcs, each less than 180 degrees. 

By convention, surveyors measure bearings East and West of North and South, as shown in the 
following figure. This convention was established in the days before computers, so that trigonometric 
functions could be easily looked up in tables not exceeding 90 degrees. For each leg, you must enter the 
quadrant number and the degrees, minutes and seconds East or West of the North-South axis The pro- 
gram will indicate the direction of the leg (e.g., SW), and will convert the quadrant, degrees, etc to an 
azimuth angle. Azimuth is measured clockwise from North to 360 degrees. 

N 



w- 



Quadrant numbering scheme. Note angles 
S are measured from the North-South line. 

A curved leg, or arc, is defined by two auxiliary legs, each of which is a radius of the arc. The bearing 
of the first auxiliary leg is the direction of the radius from the first encountered end of the arc to the center 
of the arc. You can compute this bearing from the bearing of the arc's tangent at that point, since the 
radius IS perpendicular to the tangent. The survey may show the bearing of the tangent. If not. you can 
compute It by adding one half the angular extent of the arc to the bearing of the arc's chord, as shown in 
tne next tigure. 



1B0 



Bearing of Tangent = Bearing of Chord + 2 




Tangent 



Radius 



The bearing of the second radius is from the center of the arc to the other end, and the distance is en- 
tered as a negative number to signal to the computer that this and the prior leg are not perimeter legs, but 
auxiliary legs of an arc. 

The program asks you for the bearing and distance of each leg by number Legs are entered in sets of 
ten (or less). Following the last entry in a set, you can correct any leg in the set You must enter both auxili- 
ary legs of an arc in the same set. You can enter a bearing of zero to end one set, and then enter more legs 
on the next set 

When you have corrected a set a traverse table is printed for the set This includes each leg number, 
direction, azimuth angle and distance, and incremental and cumulative Northing and Easting. The cumula- 
tive Northing and Easting after the last leg on a closed survey gives the error of closure. Arc angle, radius, 
sector area, chord length, and tangent length are printed between the two auxiliary legs of each curved 
leg. 

Following the printout of the last leg of a closed survey, the area of the plot will be printed, both in 
square feet and in acres. The area computed is very accurate provided two conditions are met: 

1) the error of closure is small (0.01 feet is usual for a house lot), and 

2) the area is sufficiently small that curvature of the earth does not become significant Surveys covering 
several tens of miles have to account for this latter factor. 



The figure below illustrates the boundaries of a lot with one curved side. The leg numbers are circled. 
Bearings and distances are shown for each leg. Find the error of closure and lot area. 



Example: 
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MfiP CHECK 

OPEN <1> OR CLOSED <9> SURVEV? 
HEX! SET OF LEGS" 
LEG NO. 1 

QLiRDRflNT.. DEGREES. MINUTES. SECONDS 

? 2..39..0..0 

DISTANCE 

<NEGflTIVE IF OUTWARD RADIUS)? 149.83 
LEG NO. 2 

QUADRANT.. DEGREES.. MINUTES. SECONDS 

? 2..39..0..0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 50 
LEG NO. 3 

QUADRANT.. DEGREES.. MINUTES.. SECONDS 

? 4.. 85.. 23.. 53 

DISTANCE 

< NEGATIVE IF OUTWARD RADIUS?^ -50 
LEG NO. 4 

QUADRANT.. DEGREES. MINUTES. SECONDS 

? 4.85.23.53 

DISTANCE 

C NEGATIVE IF OUTWARD RADIUS)? 114.32 
LEG NO. 5 

QUADRANT. DEGREES. MINUTES. SECONDS 

? 1.1.5.0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 132.78 
LEG NO. 6 

QUADRANT. DEGREES. MINUTES. SECONDS 

? 1.46.0.0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 14 
LEG NO. 7 

QUADRANT. DEGREES. MINUTES. SECONDS 

? 2.89.0.0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 25.46 
LEG NO. 8 

QUADRANT. DEGREES. MINUTES. SECONDS 

? 0.0.0.0 

CORRECT WHICH LEG IN THIS SET'' 
(0=NO MORE CHANGES)? 
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ORIGIN 0/0 

LEG/DIR. 1 /SE , „^ 

flZIMUTH/niST. 141 / 149.83 

BEL N/DEL E -116.44 / 94.291 

NORTHING/EflSTING -116.44 / 94.291 

LEG/DIR. 2 /SE 

flZIMUTH/DIST. 141 / 50 

BEL N/DEL E -38.857 / 31.466 

NORTHING/EflSTING -155.297 / 125.757 

ARC: 46 23 53 

R= 50 fl= 2024.497 C= 39.393 T= 21.429 

LEG/DIR. 3 /NW 

flZIMUTH/DIST. 274 36 7 / 50 

DEL N/DEL E 4.812 /-49.839 

NORTHING/EflSTING -151.285 / 75.918 

PRESS • C'' FOR NEKT SET OF LEGS ** 
REflDV. 

l-177Cl:177C 

LEG/DIR. 4 /NW 

flZIMUTH/DIST. 274 36 7 / 114.32 

DEL N/DEL E 9 . 1 72 /- 1 1 3 . 95 1 

NORTH I NG/EflST I NG -142.113 /-38 . 033 

LEG/DIR. 5 /NE 

flZIMUTH/DIST. 1 5 / 132.78 

DEL N/DEL E 132.756 / 2.51 

NORTHING/EflSTING -9.357 /-35.523 

LEG/DIR. 6 /NE 

flZIMUTH/DIST. 46 / 14 

DEL N/DEL E 9.725 / 10.071 

NORTHING/EflSTING .368 /-25.452 

** PRESS 'C FOR NEXT SET OF LEGS ** 

REflDV. 

LEG/DIR. 7 /SE 

flZIMUTH/DIST. 91 / 25.46 

DEL N/DEL E -.444 / 25.456 

NORTHING/EflSTING -.076 / 4E-03 

flNV MORE LEGS (1=VES.. 0=:NO>? 8 
PLOT flREfl IS 13347.683 SQ. FT. 

PLOT flREfl IS .30642064 flCRES 

BREAK IN 1000 



10 REM - SURVEV CHECK 

JS dIm ' ^SL^kPSf" ^^^"^^"^ TRAVERSE CLOCKWISE 

13 REM - KEEP PLOT TO RIGHT OF EfiCH PERIMETER LEG 

14 REM - COMPUTE flUXILIflRV LEGS fiS RftDII AT EACH 

15 REM - END OF ARC. ARC<180 DEGREES 

16 REM 

17 REM - VALUE OF PI; PI=3. 14159265 

19 REM - K0 = NUMBER OF LEGS PER SET 

20 K0=10 

30 DIM B<10>.L<10> 

39 REM - FNR<X> ROUNDS X TO 3 DECIMAL PLACES 

40 DEF FNR<:X)=INT<X*1000+.5V1000 

11 p!'? Z^idLVil CONVERSION FACTOR FOR DEGREES TO RADIANS 

60 PRINT "."HAP CHECK" - PRINT 

70 PRINT "OPEN CI) OR CLOSED <&> SURVEV"; 

80 INPUT F 

90 IF F=0 THEN 120 

100 PRINT "ORIGIN- NORTHING. EASTING"; 
110 INPUT N.E 

120 PRINT -PRINT "NEXT SET OF LEGS:":PRINT 
125 G=H 

130 FOR K=l TO K0 

140 GOSUB 2000"^ SEARING AND DISTANCE FOR NEXT LEG 

149 REM - IF BEARING IS 0. END INPUT FOR THIS SET 

150 IF Q=0 THEN 170 
155 G=G+1 

160 GOTO 240 

169 REM - ZERO UNUSED LEGS IN THIS SET 

170 IF K=K0 THEN 239 
180 FOR J=K+1 TO K0 
190 B<J>=0 

200 L<J)=0 
210 NEXT J 
230 K=K0 
240 NEXT K 

260 PRINT "CORRECT WHICH LEG IN THIS SET" 

?§i ?Sit1I "°'^E CHANGES)"; 

ci70 INPUT K 

279 REM - NO CHANGES IF INPUT 

280 IF K=0 THEN 31© 
285 K=K-H 

290 GOSUB 2000 
300 GOTO 260 

2?2 5!" ~ COMPUTE VALUES AND PRINT TRAVERSE TABLE 

310 PRINT ".TORIGIN ";FNR<N>; "/";FNR<E> 

340 PRINT 

350 FOR K=l TO K0 

360 L1=L<K> 

361 Z=Z+1 

369 REM - CHECK FOR ARC 

370 IF LK0 THEN 1100 
380 IF L1*0 THEN 900 

il ^ : SI ^g'Zy^f ''^'«»*« ^'^ 

390 L=L<K>*COS<B<K)*R) 
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400 D=L(K)#SIN<B<K)*R) 
410 N=N+L 
420 E=E+D 

429 REM - INCREMENT flREfl 

430 fl=fl-E#L+N#D 

440 PRINT "LEG/DIR.";TflB<17>;H+K;V"; 

449 REM - FROM BEARING. DETERMINE DIRECTION 

450 IF B<:K)=0 then 470 
460 GOTO 490 

470 PRINT "N" 

480 GOTO 830 

490 IF B<KK90 THEN 510 

500 GOTO 530 

510 PRINT "NE" 

520 GOTO 830 

530 IF B<K>=90 THEN 550 

540 GOTO 570 

550 PRINT "E" 

560 GOTO 830 

570 IF B<K)<180 THEN 590 

580 GOTO 610 

590 PRINT "SE" 

600 GOTO 830 

610 IF B<K>=180 THEN 630 

620 GOTO 650 

630 PRINT "S" 

640 GOTO 830 

650 IF B<K><270 THEN 670 
660 GOTO 690 
670 PRINT "SW" 
680 GOTO 830 

690 IF B<K>=270 THEN 710 
700 GOTO 730 
710 PRINT "W" 
720 GOTO 830 

730 IF B<K><360 THEN 750 
740 GOTO 770 
750 PRINT "NW" 
760 GOTO 830 

770 IF B<K)=360 THEN 790 

780 GOTO 810 

790 PRINT "N" 

800 GOTO 830 

810 B<K>=BCK>-360 

820 GOTO 450 

829 REM - BREAK BEARING INTO DEGREES. MINUTES. SECONDS 

830 di=int<b<:k>> 

840 M1=<B<K)-D1>*60 

850 M=INTCM1> 

860 S=INT<<Ml-M)*60+.5> 

870 PRINT "A2IMUTH/DIST. ";D1;M;S; V";FNR<L<K)> 

880 PRINT "DEL N/DEL E ";FNR<L); V";FNR<D) 

881 PRINT "NORTHING/EASTING ";FNR<N>; V";FNR<E) 
885 PRINT 

890 L<K)=L1 

891 IF Z<3 THEN 980 

895 PRINT PRESS 'C' FOR NEXT SET "OF LEGS ♦*" 



896 GET W$.IF W$="" THEN 896 
89? PRINT 
898 Z=0 
900 NEXT K 
910 H~G 

Si M^^^'^' ^''0'^^ '-^^■•^ ^'^=^^8. 0=NO)".: 

::^c!0 INPUT U 

940 IF UO0 THEN THEN 120 

949 REM - NO flREfl FOR OPEN SURVEV 

950 IF FO0 THEN 1000 
960 fl=flBS<fl/2> 

970 PRINT "PLOT AREA IS";FNRCfi>; "SO. FT." 
980 PRINT 

990_PRINT "PLOT fiREfi IS"; INTCfi/43560*lE8+. 5>/lES.; "ftCRES" 

III i&(B<K?-B(J-l?r'' TRANSVERSE TABLE 

1110 C=ABS(180-C> 
1120 I3=-L1 

1130 l<:k>=d 

1 1 40 Al =C/ 1 80*ir*D*D 

1150 C1=2*D*SIN<:C/2*R> 

1 1 60 T=D*TAN < C/2*R > 

1170 B9=B<K>-B<K-1> 

1180 IF B9<-180 THEN 1210 

1190 IF B9>180 THEN 1210 

1200 IF B9>0 THEN 1230 

1210 A=A+A1 

1220 GOTO 1240 

1230 A=A-A1 

1240 D1=INT<C:> 

1250 M1=<:C-D1>*60 

1260 ri=INTCMl> 

1270 S=INT<<:ril-M>*60+.5) 

1280 PRINT " ARC : "Dl ; M; S : PRINT" R=" ; FNR<:d> : "A=" : FNR<r Al • "f-" • 
1290 PRINT FNR<C:i>;"T=":FNRCT> » •■ f-NRCHl C- . 

1300 PRINT 
1320 GOTO390 

1999 REM - INPUT DATA FOR ONE LEG 

2000 B<:K>=0 
2010 L<K>=0 

2020 PRINT "LEG NO. ";H+K;" 

2021 PRINT "QUADRANT. DEGREES. "; 

2022 PRINT "MINUTES. SECONDS": 
2030 INPUT Q..D.M.S 

2040 IF Q=0 THEN 2270 
2050 IF Q>4 THEN 2020 
2060 IF e<0 THEN 2020 
2070 IF D<0 THEN 2020 
2080 IF M<0 THEN 2020 
2090 IF S<0 THEN 2020 
2100 B<K>=D+<M+S/60>/60 
2110 IF B(K»90 then 2020 
2120 IF Q=l THEN 2220 
2130 IF Q=2 THEN 2156 
2140 GOTO 2170 
2150 B<K>=180-B<K> 
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2160 GOTO 2220 

2170 IF Q=3 THEN 2190 

2180 GOTO 2210 

2190 b<:k>=i80+b<:k> 

2200 GOTO 2220 

2210 IF Q04 THEN 2220 

2215 B(K>=360-B<K> 

2220 PRINT "DISTANCE " 

2221 PRINT "(NEGATIVE IF OUTWARD RADIUS)" 
2230 INPUT L<K>: PRINT 

2240 IF L<K»0 THEN 2270 

2250 IF ABS<L<:K>>0ABS<L<:K-1>>THEN 2220 

2270 RETURN 

9999 END 



Day of the Week 



This Program calculates the day of the week that a given date falls on. It will figure, for example, that 
December 25, 1980 will be a Thursday. 

You must enter the date in numeric form and in the order of month, day, year. September 12 1975 will be 
entered as 9 , IS , 1975 , making certain that commas, not slashes or dashes, separate the figures. 

Examples: 

Cindy's birthdate is March 4, 1953. On what day was she bom? 

Uncle Lon has an appointment on September 30, 1977. What day is that on? 

DflV OF THE WEEK 

CENTER 0,0.0 TO END PROGRflM> 
MONTH, DfiV, VEflR? 3, 4. 1953 
WEDNESDftV 

MONTH, DRV, VEftR? 9, 30, 1977 
FRIDfiV 

MONTH, DftV, VEflR? 0,0,0 

10 PRINT "nOflV OF THE WEEK" 
20 PRINT 

29 REM - REQUEST USER INPUT 

30 PRINT "CENTER 0,0,0 TO END PROGRAM)" 
40 PRINT "MONTH, DflV, VEflR"; 

50 INPUT M,D,V 

59 REM - TEST FOR END OF PROGRflM 

60 IF MOO THEN lOO 
70 IF DO0 THEN 100 
80 IF VO0 THEN 100 
90 GOTO 360 

fio^F S>f fSEl5°i3r^' CALCULATIONS? 

109 REM - ADJUST INPUT 

110 M=M+12 
120 V=V-1 

129 REM - CALCULATE DAV NUMBER 

111 E3:?»?ii'Nf?i:j;5>^i^^^^^ 

150 IF"N>0"HiN^^0^^"^ TRANSLATE TO DAV, PRINT 

160 PRINT "SATURDAV" 

170 GOTO 340 

180 IF N>1 THEN 210 

190 PRINT "SUNDAV" 

200 GOTO 340 
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210 IF N>2 THEN 240 

220 PRINT "MONDflV" 

230 GOTO 340 

240 IF N>3 THEN 270 

250 PRINT "TUESDflV" 

260 GOTO 340 

270 IF N>4 THEN 300 

280 PRINT "lOEDNESDflV" 

290 GOTO 340 

300 IF N>5 THEN 330 

310 PRINT "THURSDflV" 

320 GOTO 340 

330 PRINT "FRIDflV" 

340 PRINT 

349 REM - RESTfIRT PROGRAM 

350 GOTO 40 
360 END 



Days between Two Dates 



This program calculates the number of days between two given dates. Leap years are taken into account 
The program assumes there is one day between today and tomorrow. For instance, there are two days between 
March 1 and March 3 of the same year. 

There are a few precautions to assure the proper use of this program. First, you must be certain to enter the 
eariier date first. Second, dates must be entered in number form (3, not MARCH ) and in the correct order 
(month, day, year, i.e.. 3,17,1 976 ). Commas, not slashes or dashes, must separate the figures Third the 
year must not be abbreviated { 1976 , not 76), even if both dates are in the same century. Finally the month en- 
tered must not be greater than 12 and the days no greater than the number of days in the particular month If 
such IS the case, the message UNREAL DATE is printed to alert you to the fact that an unreal date 
(such as 14 ,3S , 1 975 ) has been entered. An incorrect answer is likely to result. 

Example: 

John's birthdate is August 8. 1951. How many days old will he be on his 30th birthday? 
DflVS BETWEEN TWO DATES 



FIRST DfiTE? 7.. 4. 1977 
SECOND DATE? 12.25.1977 
DIFFERENCE = 174 DFIVS 

MORE DflTfl <:i=VES.. 0=NO>? 6 



10 PRINT ".TDRVS BETWEEN TWO DftTES" 
20 PRINT 

29 REM - STATEMENTS 30 TO 6& REQUEST USER INPUT 

30 PRINT "FIRST DATE" : 
40 INPUT M1..D1.V1 

50 PRINT "SECOND DATE"; 
60 INPUT M2.D2.V2 

f? S^C." ^^"^ VfiRIABLES TO BE USED IN SUBROUTINE 
70 M=M1 

80 D=D1 

90 V=V1 

100 GOSUB 230 

109 REM - SAVE COMPUTED NUMBER OF DAVS IN N 

110 N=A 

119 REM - SET VARIABLES TO BE USED IN SUBROUTINE 

120 M=M2 
130 D=:D2 
140 V=V2 

150 GOSUB 230 

159 REM - CALCULATE DIFFERENCE AND PRINT 

160 N=A-N 

170 PRINT "DIFFERENCE =";N;"DAVS" 
180 PRINT 

189 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
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198 PRINT "MORE DflTfl <1=VES. 0=NO>"; 

200 INPUT X 

210 IF 'A=l THEN 20 

219 REM - END PROGRAM 

220 GOTO 460 * 

227 REM - SUBROUTINE TO COMPUTE NUMBER OF BflVS FROM 0/0/0/ TO M/H/V 

228 REM - START WITH TEST FOR UNREAL DATE 

229 REM- GO TO CORRECT TEST DEPENDING ON NUMBER OF DAVS IN THE MONTH 

230 ON M GOTO 260. 280. 260. 340. 260. 340. 260 ..268. 340 ..260 ..340 .-260 
240 PRINT "UNREAL DATE" 

249 REM - STOP CALCULATIONS. RETURN TO MAIN PROGRAM 

250 RETURN 

259 REM - MONTH HAS 31 DAVS 

260 IF D>31 THEN 240 
270 GOTO 350 

27^ REM - MONTH IS FEBRUARV; A LEAP VEAR? 
280 IF V/40INT<;'t'/4;j THEN 310 
290 IF V/400=INT<V/400.> THEN 320 
300 IF V/100OINT<V/100> THEN 320 

309 REM - NOT A LEAP VEAR.: MONTH HAS 28 DAVS 

310 IF D>28 THEN 248 

r<19 REM - A LEAP VEAR; MONTH HAS 29 DAVS 
320 IF D>29 THEN 240 
330 GOTO 350 

339 REM - MONTH HAS 30 DAVS 

340 IF D>30 THEN 240 

349 REM - TABLE OF NUMBER OF DAVS FROM FIRST OF VEAR TO FIRST OF EACH 
MONTH 

350 DATA 0.31.59.90.120.151.181.212 

351 DATA 243.273.304.334 

360 RESTORE 

361 FOR Q=l TO M 

362 READ A 

363 NEXT Q 

369 REM - GET NUMBER OF DAVS FROM JANUARV 1 TO FIRST OF MONTH FROM DATA 
TABLE 

379 REM - COMPUTE NUMBER OF DAVS FROM O/O/© TO M/D/V 

380 A=A+ V*365+ 1 NT < V/4 > +D+ 1 - 1 NT < V/ 1 00 ) + 1 NT < V/408 > 
389 REM - POSSIBLV A LEAP VEAR? 

398 IF I NT < V/4 K> V/4 THEN 458 
489 REM - CONTINUE TEST FOR LEAP VEAR 
410 IF V/400= INT<:V/400> THEN 430 
420 IF V/100=INT<V/100.^ THEN 440 

428 REM - IF MONTH IS JANUARV OR FEBUARV. ADJUST CALCLATED NUMBER OF 
DAVS 

430 IF M>2 THEN 450 
440 A=A-1 

449 REM - END OF SUBROUTINE. RETURN TO MAIN PROGRAM 

450 RETURN 
460 END 
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To shorten this program you may wish to omit the test for unreal dates. It should be noted that if a month 
of more than 12 is entered when this test is omitted, an input enpr will result. The program lines which may be 
deleted are listed following the example below. 

Example: 

How many days are there between July 4 and Christmas? 



DfiVS BETWEEN TWO DATES 

FIRST DRTE? 8.8.1951 
SECOND DftTE? 8.8.1981 
DIFFERENCE = 10958 DflVS 

MORE DfiTfl <1=VES. 0=NO>? 8 



1 REM - OPTION 110.150 

10 PRINT '\TDftVS BETWEEN TWO DATES" 



90 V=V1 

100 GOSUB 350 

109 REM - SfiVE COMPUTED NUMBER OF DflVS IN N 



140 V=V2 

150 GOSUB 350 

159 REM - CfiLCULflTE DIFFERENCE AND PRINT 



227 REM - SUBROUTINE TO COMPUTE NUMBER OF DflVS FROM 0/0/0/ TO M/D/V 



^"^^J^Slu" "^^^^^ mnBER OF DflVS FROM FIRST OF VEflR TO FIRST OF EflCH 
nONTH 



460 END 
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Anglo to Metric 



This program converts a measure given in anglo units to metric units. The conversions available in this pro- 
gram are as follows: 

1 Inches to centimeters 

2 Feet to centimeters 

3 Feet to meters 

4 Yards to meters 

5 Miles to kilometers 

6 Teaspoons to cubic centimeters 

7 Tablespoons to cubic centimeters 

8 Cups to liters 

9 Pints to liters 

10 Quarts to liters 

1 1 Gallons to liters 

12 Bushels to liters 

13 Pecks to liters 

14 Ounces to grams 

15 Pounds to kilograms 

16 Tons to kilograms 

17 Degrees Fahrenheit to degrees Celsius 

You must provide the value of the anglo measurement and the number of the conversion (1 - 17 as listed 
above) which you wish to [Serform. 

Example: 

Perform the following conversions: 

8.5 miles to kilometers 

75° Fahrenheit to degrees Celsius 

10 gallons to liters 



anglo to metric 

c;to end program tvpe ©> 

which conversion do vou need? 5 

value to be converted? 8.5 

8.5 miles = 13.6765 kilometers 



WHICH CONVERSION DO VOU NEED? 17 
VALUE TO EE CONVERTED? 75 
75 DEGREES FAHRENHEIT = 23.8888889 CELSIUS 
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WHICH CONVERSION DO VOU NEED? 11 
VRLUE TO BE CONVERTED? 19 
10 OflLLONS = 37.85 LITERS 



WHICH CONVERSION DO VOU NEED? @ 



10 PRINT "HRNGLO TO METRIC" 
20 PRINT 

29 REM - ESTABLISH VflRIflBLES FOR 17 CONVERSION FflCTORR 

30 DIM C<17> 

39 REM - LOOP TO ASSIGN CONVERSION FACTORS INTO CO 

40 FOR N=l TO 17 
50 READ C(N> 

60 NEXT N 

69 REM - DATA TABLE OF SEVENTEEN CONVERSION FACTORS 

70 DATA 2. 540.. 30. 480. .3048. .9144 

71 DATA 1.609.4.929. 14.788.. .2366 

72 DATA .4732. .9463.3.785.35.24 

73 DATA 8 . 809 . 28 . 3495 . . 4536 . 907 . 2 
80 DATA .6214 

89 REM - GET NUMBER OF CONVERSON FROM PROGRAM DESCRIPTION 

90 PRINT "<T0 END PROGRAM TVPE @)" 

100 PRINT "WHICH CONVERSION "; 

101 PRINT "DO VOU NEED".: 
110 INPUT N- PRINT 

119 REM - END PROGRAM? 

120 IF N=0 THEN 540 

129 REM - CONVERSIN AVAILABLE? 

130 IF N> 17 THEN 100 

140 print "value to be converted"; 

150 input i -print 

159 rem - perform conversion using proper conversion factor 

160 r=i*c<:n.^ 

169 rem^-^direct program to proper conversion units. print results 

173 ON N-9 GOTO 360.380.400.420.440.460.480.500 
175 ON N GOTO 180.200.220.240.260.280.300.320.340 
180 PRINT I.; "INCHES =".; R.: "CENTIMETERS" 
190 GOTO 520 

200 PRINT I.- "FEET =".;R.: "CENTIMETERS" 
210 GOTO 520 

220 PRINT I.; "FEET =".:R; "METERS" 
240 PRINT I.;"VARDS =".;R.: "METERS" 
250 GOTO 520 

260 PRINT I.: "MILES =".:R; "KILOMETERS" 
270 GOTO 520 

280 PRINT I.:"TSP. =".;R.- 

281 PRINT "CUBIC CENTIMETERS" 
290 GOTO 520 

300 PRINT I.:"TBSP. =".:R; 

301 PRINT "CUBIC CENTIMETERS" 
310 GOTO 520 

320 PRINT I.: "CUPS =";R.: "LITERS" 
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330 GOTO 520 

340 PRINT I; "PINTS =".: R; "LITERS" 
350 GOTO 520 

360 PRINT I . "QUARTS =".:R; "LITERS" 
370 GOTO 520 

380 PRINT I; "GALLONS =".;R; "LITERS" 
390 GOTO 520 

400 PRINT I. : "BUSHELS =".:R.: "LITERS" 
410 GOTO 520 

420 PRINT I; "PECKS =" JR.: "LITERS" 
430 GOTO 520 

440 print" I; "OUNCES =";R; "GRAMS" 
450 GOTO 520 

460 PRINT I; "POUNDS ="; R; "KILOGRAMS" 
470 GOTO 520 

480 PRINT I; "TONS =";R; "KILOGRAMS" 
490 GOTO 520 

499 REM - CONVERT FROM DEGREES FARENHEIT TO CELSIUS 

500 R=<I-32)#5/9 

510 PRINT I.; "DEGREES FAHRENHEIT =".:R; 

511 PRINT "CELSIUS" 
520 PRINT: PRINT 

529 REM - RESTART PROGRAM 

530 GOTO 100 
540 END 



Alphabetize 



This program alphabetizes a list of words or phrases. 



70 DIM A»(/V) 

where N = the number of items to be alphabetized. 

Example: 

Alphabetize the following names: 

Robert Wilson 
Susan W. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee II 
Mary Mitchell 
David Bowers 
Steven Evans 
Carol Jameson 
Linda North 



70 Bin fl*<ll> 
RUN 



ALPHflBETIZE 

<T0 END PROGRAM ENTER @> 
NUMBER OF ITEMS^ 11 
ITEM 1 ? WILSON ROBERT 
ITEM 2 ? JAMES SUSAN W. 
ITEM 3 ? SMITH KENT 
ITEM 4 ? MITCHELL MICHAEL 
ITEM 5 ? MCGOWAN ANN T. 
ITEM 6 ? LEE ANEXANBER II 
ITEM 7 ? MITCHELL MARV 
ITEM 8 ? BOWERS DAVIB 
ITEM 9 ? EVANS STEVEN 
ITEM 10 ? JAMESON CAROL 

IJEM 11 ? NORTH LINBA 

BOWERS BAVIB 

EVANS STEVEN 

JAMES SUSAN W. 
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JAMESON CAROL 
LEE ALEXANDER II 
MCGOWAN ANN T. 
MITCHELL MARV 
MITCHELL MICHAEL 
NORTH LINDA 
SMITH KENT 
WILSON ROBERT 

NUMBER OR ITEMS? 8 



10 PRINT " ."ALPHABETIZE" 

20 PRINT 

30 PRINT "<T0 END PROGRAM ENTER 0>" 

40 PRINT "NUMBER OF ITEMS"; 

50 INPUT N 

60 IF N=0 THEN 330 

69 REM - LIMIT ARRAV TO MAXIMUM NUMBER OF ITEMS TO EE ENTERED IN ONE RUN 

70 DIM fl*<:25> 
80 FOR 1=1 TO N 
90 PRINT "ITEM"; I; 
100 INPUT m<i? 
110 NEXT I 

120 M=N 

127 REM - THE SORT TECHNIQUE USED COMPARES DATA ITEMS IN DIMINISHING 
INCREMENTS 

128 REM - THE FIRST PASS COMPARES ITEMS N/2 ELEMENTS APART.. THE bEUUND 
(N/2)/2 

129 REM - ELEMENTS APART.. AND SO ON UNTIL THE INCREMENT IS EXHAUSTED. 

130 T=M/2 

131 M=INT<T.> 

140 IF M=0 THEN 28© 
150 K=N-M 
160 .1=1 
170 I=J 
180 L=I+M 

190 IF a$<i:k:=a$<l>then 250 
200 7$=m<.i'? 

210 A$<I>=A$<L> 

220 a$<l:>=t$ 

'^'30 I = I-M 

240 IF I>=1 THEN 188 
250 J=J+1 

260 IF .J>K THEN 130 
270 GOTO 170 

280 FOR 1=1 TO N 

281 REM - CHECK FOR FULL SCREEN <20 LINES) 

282 IF I/20OINT<I/20.> THEN 290 

283 REM - WAIT FOR OPERATOR CUE TO GO TO NEKT SCREEN 

284 PRINT "ENTER ^C" TO CONTINUE"; 

285 INPUT m- 
290 PRINT A$a> 
300 NEKT I 

310 PRINT 

319 REM - RESTART PROGRAM 

320 GOTO 40 
330 END 
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OPTION 



You may wish your list alphabetized in reverse, or from highest to lowest. The program changes necessary 
are listed following the example below. 

Example: 

The scores on a math test range from 82 to 1 17. Put the students in order according to their scores, from 
highest to lowest. 

89 Bowers 
102 Evans 
111 James 
100 Jameson 

99 Lee 

117 McGowan 
102 Mitchell 

82 Mitchell 

97 North 

91 Smith 
108 Wilson 



70 DIM fl$<ll> 
RUN 



RLPHflBETIZE 

aO END PROGRAM ENTER ©> 
NUMBER or ITEMS? 11 
ITEM 1 ? QSS BOWERS 
ITEM 2 ? 102 EVANS 
ITEM 3 ? Ill JAMES 
ITEM 4 ? 100 JAMESON 
ITEM 5 ? 099 LEE 
ITEM 6 ? 117 MCGOWAN 
ITEM 7 ? 102 MITCHELL 
ITEM 8 ? 082 MITCHELL 
ITEM 9 ? 097 NORTH 
ITEM 10 ? 091 SMITH 
ITEM 11 ? 108 WILSON 
117 MCGOWAN 
111 JAMES 
108 WILSON 
102 MITCHELL 
102 EVANS 
100 JAMESON 
099 LEE 
097 NORTH 
091 SMITH 
089 BOWERS 
082 MITCHELL 

NUMBER OF ITEMS? 
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1 REM - flLPHftBETIZE -OPTION 196 

4 REM - LIMIT fiRRflV TO MflKIMUM NUMBER 

5 DIM fl$<25) 
-? ppii'^jj 

10 PRINT "RLPHflBETIZE" 



OF ITEMS TO BE ENTERED IN ONE RUN 



180 L=I+M 

190 IF fl$(I»=fl$(L> THEN 256 
200 T$=Fl$<I> 



330 END 
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